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Editorial 


Speculation has been abounding in the computer press over the 
latest wave of new hardware to appear, and how the traditional 
market leaders would react. In particular, the first euphoric greeting 
for Clive Sinclair’s Spectrum revolved around ‘well that’s it, no-one 
can possibly match that?’. 

There was a period of about two weeks when no-one quite knew 
what was going on. As far as Commodore were concerned, this 
reached particularly ludicrous limits as different statements were 
being issued almost daily from a large variety of sources, each of 
which were subsequently denied and quashed by the statement that 
came out the next day. 

Well, it now seems that Commodore (and indeed the rest of the 
industry) has calmed down a little, and now that the dust has settled 
we can take a look at what is really going on. 

The first point that needs to be made is that the Sinclair is not as 
good as everyone originally thought it was. There is no denying that 
it IS a good machine, but with a number of limitations. 
Consequently, the ‘big boys’ have all breathed collective sighs of 
relief, and gone back to (almost) original marketing ideas. 

It would now appear that all the originally planned Commodore 
machines will be coming out, and possibly sooner than expected, 
although of course time alone will tell on that one. All the original 
specifications are being matched, and it is good to know that the 
company is not making any hurried, rash decisions. Delivery dates 
will have to be speeded up, and prices will have to be dropped on the 
bottom end of the range machines, that’s for sure. | think 
Commodore can manage that. 

At the top end of the market we’ve seen nothing around, either 
existing in fact or rumour, that can match what is coming out of 
C.B.M. this year. Let’s just hope that nothing goes wrong. 

PETs that you can program by talking to them? See you next 
month... 
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Dear Sirs, 


With lots of mucho 
grovellings, is there 
information of ANY sort of 
information available for the 
CBM 64 machine? | am 
trying to assemble as much 
information as possible 
about this machine. A 
colleague is currently 
involved in a CAL project, 
the leader of which is 
interested in using BBC 
computer equipment 
(UGH!). We are therefore 
combining our efforts to 
redirect the interests of this 
poor demented fellow and 
the '64 could prove 
suitable. 


Yours sincerely 
R.P.E.H. Mitchell 
Bath 


Dear Mr. Mitchell, 


We did give a mention to 
the Commodore 64 in last 
months issue, but in case 
you missed that, here’s a 
brief rundown on what we 
know so far. It is a 64K 
machine, with 40K of that 
being directly available in 
Basic, the rest has to be 
accessed by machine code. 
Graphics resolution is 320 
by 200, and the high 
resolution mode revolves 
around characters known as 
sprites, which are 24 by 21 
pixels each. Up to 256 of 
these can be displayed 
simultaneously on the 
screen. 16 different colours 
can also be shown at any 
one time. With full 
synthesiser capabilities as 
well, this is an impressive 
machine. Of course, the 
crucial questions are price 
and delivery. Well, price is 
expected to be around 500 
pounds, and delivery round 
about January of next year, 
but | would suggest to 
Commodore that they think 
again about both of those. 





Dear Sirs, 

I’m writing to enquire if 
anyone has come across a 
routine for (simply) 
changing the device number 
of a disk drive. The reason 
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for asking is that a fellow 
Pet enthusiast has an 8050, 
and | have a 3040, so 
exchanging of programs is 
rather redious. Can you 
offer a solution? 


Yours sincerely 
S.M. Bennet 
Bristol 


Dear Mr. Bennet, 


We certainly can! The 
following three lines of 
code, either typed in direct 
from the keyboard, or used 
from within a program, will 
do the trick: — 


OPEN 15,0D,15 

PRINT# 15, “M-W’’ 
CHR$(TY) CHR$(O) 
CHR$(2) CHR$(32 + ND) 
CHR$(64+ND)ICLOSE 15 


Here, OD is the old device 
number (usually 8), and ND 
is the new device number 
(anything in the range 8 to 
15). TY depends on the 
type of disk unit you’re 
playing around with. For a 
2040 or a 3040 TY = 50, 
for a 4040 or an 8050 TY 
= 12, and for a 2031 ora 
Vic disk drive, TY = 119. 


Dear Sirs, 


| write concerning the 
screen save program by 
Roger Davis, originally 
published in CPUCN Volume 
2 issue 8. | have only just 
come across the program! 
As you are no doubt aware, 
this program does not work 
correctly, and so | come to 
you for a correct listing. | 
appreciate that this is an 
inherited problem as far as 
you are concerned, but 
would appreciate any 
assistance you can offer 
me. 


Yours sincerely 
Clive Truman 
London NW8 


Dear Mr. Truman, 


Rather than go over old 
ground, we'll turn this one 
over to you, the readers, 
with the chance to win a 10 
pound prize! What we’re 
looking for is a machine 





code routine that can save a 
screen to disk, and one to 
pull it back afterwards, from 
within a program. It should 
also allow you to design 
screens. The best entry will 
be published in a future 
issue of Commodore 
Computing, and the winner 
duly sent the readies. 


Dear Sirs, 


| am a student at the 
University of New 
Brunswick, Canada, and 
currently tackling a thesis 
project with the bio- 
engineering institute. What 
I'm intending to do is 
working with the Pet 
computer, and changing its 
normal keyboard to an 
extended one, for use with 
physically disabled people. | 
also intend interfacing the 
Pet to printers other than 
those normally compatible, 
and interfacing this to a 
speech synthesizer for non- 
vocal disabled people. 

The reason | write is that | 
would be grateful for any 
information you could send 
me that you think might be 
of help. 


Thanking you in anticipation 
Yours sincerely 


Constantinos Pattichis 
780 Montgomery Street 
Apt 104 

Fredericton 

NB E3B2Y1 

Canada 


Dear Mr. Pattichis, 


Thank you for an interesting 
and informative letter (we 


ADDR. CODE MNEMONICS 
AS 86 LDA #900 
85 3D STA $90 
26 3E F4 JSR $F43E 
AS 66 LDA #$60 
85 D3 STA #03 
Ad Di LDY $D1i 
DG 43 BNE $834C 


26 66 F4 JSR $F 466 


26 BE FG JSR $FGB6 
AS D3 LDA #D3 

26 28 Fi JSR $F128 
26 8C Fi JSR $Fi8c 
26 8C Fi JSR $F18C 


AS 2A LDA $2A 
ES @2 SBC #$02 
35 FB STA $FB 
AS 2B LDA $2B 
ES 06 SBC #$00 
85 FC STA SFC 


26 52 F3 JSR $F252 
4C DD F3 IMP $F3DD 


tters— 


didn’t have room to print it 
all), We’ve already sent 
some material off, but if any 
of you readers out there 
know of any information 
that you think might help 
Mr. Pattichis, I’m sure he 
would be extremely grateful 
to receive this. Thank you 
for your help. 





Dear Sirs, 


The enclosed program 
listings will append program 
files from a disk onto a 
program already in the 
computer. The code can be 
located anywhere were it’s 
convenient e.g. in the 
second cassette buffer at 
$033A : at present it only 
works on Basic 2 roms. One 
thing: beware of line 
numbers, and make sure the 
first line number of the 
second program is higher 
than the last line number of 
the first program. 

The syntax is as follows: 
SYS X “‘filename’’, 8 : 
where X is the starting 
address of the routine, and 
8 is the device number of 
the disk unit. 


Yours sincerely 
Mike McLean 
London E10 


Dear Mr. McLean, 


Thanks for the routine, 
which we list below. If 
anyone comes up with a 
Basic 4 version, let us 
know, and we'll include it in 
a future edition of the 
magazine. 


REMARKS 


SET “LOAD’ FLAG 
GET PARAMETERS FOR A LOAD 


SEC. ADDR. WITH BITS 5.6 SET 
LENGTH OF FILE NAME 


SYNTAX ERROR’ IF NO FILENAME 
PRINT “SEARCHING FOR’ FILENAME 
SEND FILENAME TO IEEE BUS AND 
UNLISTEN BUS 
SET DISK UNIT AS TALKER 
SEC. ADDR. 

SEND SEC. ADDR. 

INPUT START ADDR. FROM DISK 

AND DISCARD IT 


SET POINTERS FOR START ADDR. 
OF LOAD TO END OF PROGRAM 
ALREADY PRESENT 


LOAD PROGRAM FROM DISK INTO RAM 
UNTALK BUS 

PRINT “READY :SET END OF BASIC 
POINTERS :STAT PTR:LINK PROGRAM 
RETURN TO BASIC 


New Product News 


Training Courses 

A number of companies have set up training 
courses on Commodore equipment recently. One 
such is Comsoft, who write: ‘‘We are proposing 
to run a series of Assembler courses aimed at 
both the professional and the home computer 
student. The professional course will be restricted 
to five students per course, will run for ten 
evenings, and will cost 180 pounds including 
VAT. The introductory course is aimed more at 
the hobbyist, and will be less detailed. This will 
run for five evenings, the classes will be larger, 
but the cost will be 49.45 pounds including 
VAT.’ 

If anyone is interested, they’re welcome to 
contact T. Chisman of Comsoft, at 2c-2d Wake 
Green Road, Moseley, Birmingham B13 9EZ, or 
ring 021-449-9151 during office hours. 

The second company, with the rather similar 
name of Compsoft, are opening a training centre 
for DMS, their own very successful data base 
program which (amongst other things) works on 
the Commodore series of machines. Apparently 
there are over 3000 installations for DMS, so it 
seems to be a reasonable idea to have training 
courses based around the program. Originally 


“INSTANT ROM” 


“Instant Rom’’ ROM/EPROM EMULATORS contain CMOS RAM with inter- 
nal battery backup. When the power is switched off, data is retained for up 
to 10 years. 

In the PET, a 4K INSTANT ROM can be fitted in the $9000 or $A000 
socket. Machine-code (and Basic) programs can be stored, and are available 
at switch-on. 

INSTANT ROM saves time. It can be used for long periods; when the pro- 


gram is finally ‘‘bug-free’’, an EPROM can be programmed. 
4K INSTANT ROM (ROM socket replacement) 

2K INSTANT ROM (character generator replacement) 
Adaptor GA1 (essential for PET users) 


“G-ROM E” 
G-ROM E is a 4K EPROM which will Auto-run, at switch-on, any Basic or 
Machine-Code program stored in INSTANT ROM. Basic programs can be 
stored with a few quick key-strokes. No skill is needed. Programs can now 
be run without a tape or disk unit, and can be changed without cost to the 
user. Diagnostic aids are included. 
G-ROM E (specify type of PET) 


Postage (£1.00) and VAT are extra. Leaflets are available. 


“INSTANT ROM” and ‘‘PETCLOCK”’ are COMMODORE APPROV- 
ED PRODUCTS. 

GREENWICH INSTRUMENTS LIMITED, 22 BARDSLEY LANE, 

GREENWICH, LONDON SE10 9RF, UK. Tel: 01-853 0868. Telex: 

896691 Attn. GIL. 








intended just for the Commodore and CP/M dealer 
network, the scheme has been extended to 
include end users as well. These courses cover 
not only existing users, but potential ones as well, 
so if you want to see what the product looks like 
before buying it, now’s your chance. Course fees 
start at 75 pounds, depending on group size, 
which is normally restricted to twelve people, 
although they can accommodate up to 30 if 
necessary. They are held at Compsoft’s 
headquarters in Surrey, and if you’re interested 
your contact there is the lovely Heather Kearlsey, 
who can be reached at: Great Tangley Manor 
Farn, Wonersh, Nr. Guildford, Surrey. If you can’t 
be bothered finding a stamp, their ‘phone number 
is Guildford 898545. 


Roms and Eproms 

JCL (tel. O892 27454) launched at the PET 
Show their MK Ill Eprom Programmer, which 
provides features to program the most often used 
Eproms and Eeroms. It can, in fact, program the 
following devices:— 2508,2708 1K by 8 
Eproms (24 pin), 2532,2732 4K by 8 Eproms 
(24 pin), 2564,2764 by 8K Eproms (28 pin), and 
the Hitachi HN 48016-P (2716 compatible, so 


INSTALLATION SERVICE 


Experience is often very valuable when installing 
your new Commodore System. Mistakes are 
frequently very costly and waste valuable time. 


ONE DAY SERVICE 

For a fee of £85 per day plus expenses a member 
of staff will help you overcome early difficulties and 
set you on a suitable path to a_ successful 
computerisation. 


FULL INSTALLATION SERVICE 

This is tailored to your requirements. We can supply 
extra operations staff, or technical advisors. Extra 
equipment can be useful if an installation is required 
by a certain date. As full Commodore Systems 
Distributors we have experience you will probably 


need. 


MAINTENANCE 

Most of the system breakdowns are not hardware 
faults, but consist of lack of understanding of 
programs or faults based upon unwise practices. 
Our staff are trained to assist with system problems, 
and they are capable of finding the best possible 
solutions. Maintenance staff will visit your site, 
diagnose your difficulty and if necessary replace 
any components needed. 


For information concerning this service please 
contact Brian Homewood or Robert Jones. 


PEACH DATA SERVICES LTD. 


COMPUTER SERVICE TO BUSINESS 


5 HORNINGLOW STREET, BURTON-ON-TRENT, STAFFS. BURTON (0283) 44968 
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New Product News 


they tell me). 

It's also possible to program 16K devices, and 
using the programmer in conjunction with either 
JCL’s Assember, or the standard Commodore 
one, allows you to convert any 16K or 32K Pet 
into a complete development system. Inter-faced 
to the Pet via the user port, the device is a very 
useful one. 

Other goodies from JCL include their Rom 
pager, which comes in two versions. One allows 
up to 8 roms for any one socket, and the other 
allows up to 4 roms for any two adjacent sockets: 
both sets of 4 roms can be passed separately. 
This just plugs in inside the Pet, and thus is 
transparent to the user of the machine. Selection 
of the required rom can be done either via the 
keyboard, or from within a program. 

The 8 slot one can also take up to 28K of Basic 
or machine code which has been stored in Eprom. 
Price for doing this is available only on 
application, but the other two come at 45 pounds 
for the 8 slot, and 47.50 pounds for the 4 by 4 
one. 


Breaker Breaker 
Well, not quite, but all amateur radio operators 
should be interested in this new product from 
T.A.L. Computer Division (Tel. 0525 372114). 
This is a plug in RTTY module, which will work 
with any of the Commodore range, including the 
Vic. Specifications given are output/input of 5V 
TTL to/from the demodulator, baud rates ranging 
from 45.45 to 150, and the whole thing is 
programmed in machine code sitting in an eprom. 

Facilities available on receive include baud rate 
change, auto format for 40 columns (semi format 
for the Vic because of its 22 character screen 
width) and 4/5 user messages. On transmit, we 
have a number of pre-programmed messages, 
auto insertion of carriage return, line feed etc., a 
relay for transmit/receive switching, and the 
whole device is completely mechanically 
compatible. Expect this to be available shortly, 
with a retail price of around 55 pounds. 

Okay good buddy, what are you waiting for? 


Computer Slide 
An interesting little number from Chasmood (tel. 
0843 77161), called the ‘Computer Slide’. It is 
aimed at solving the problem of moving Pets (and 
indeed any sort of monitor, television etc.) around 
the desk, with the minimum amount of effort and 
fuss. 

The Computer Slide consists of a turntable, 
approximately 16 inches square, which can be 
rotated on ball bearings through 360 degrees. 
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Presumably people do want to look at the back of 
a Pet from time to time. The angle of inclination 
can also be adjusted, in case you’re being dazzled 
by an infuriating beam of sunlight bouncing off 
the screen. It can be moved backwards and 
forwards by 10 centimetres on a separate set of 
steel ball slides, and finally the complete 
assembly can be moved sideways by 
approximately 2 metres when you want to zoom 
along your desk. Top weight load is 
approximately 45 kilograms. 





The Chasmood Slide 


Keeping Your Pet Clean 

I'll say one thing for Huberta Kingsbury of 
Automation Facilities (Tel. 073 522 3012), she 
is certainly persistent! The number of press 
releases, editorial copy and so on that I’ve had 
recently has been legion. Automation market 
something called the Petkit, a box full of all kinds 
of cleaning materials for a complete Pet system: 
disk head cleaning, cleaning fluid, anti-static and 
lint-free cloths, and a seemingly endless list of 
other items. Still, it’s all in a good cause, and she 
does have a valid point: you’re not going to get 
the best out of a system if it’s not maintained 
properly. 


More On COMAL 
Thanks first of all to Len Lindsay, of the United 
States COMAL Users Groups, who popped up in 
town the other day. Even if it did mean going into 
work at some obscure hour on a Saturday 
morning, it was a most interesting chat, and we 
were kept up to date with the latest 
developments concerning this new language. 
Thanks also to Nick Green, for turning up and 
being his usual interesting self, John Collins for 
providing a 64K board (the old 8032 didn’t know 
what had hit it), Roy Atherton, and someone else 
whose name I’ve forgotten (sorry!). 

The main point that Len had to make, was that 
over in Denmark recently they’d just finished a 





series of meetings, which finally (apart from one 
or two minor points) defined the complete and 
overall structure of COMAL. The language is now 
in its definitive state. 

In this issue we'll be starting a regular spot on 
COMAL, now that FORTH has had it’s run, and 
we'll be using that to keep you fully up to date 
with the language. Meanwhile, as a foretaste of 
what's to come, the diagram shown here shows 
the kind of high resolution that can be obtained 
using COMAL and the accompanying high 
resolution board. 






CBM-COMAL-80 
The Beebox 

This neat, compact unit, which sits underneath 
your Vic, is designed to give you a 40 column by 
25 line display, and increase the amount of 
available memory from 3K to 32K. It connects up 
to the expansion socket on the Vic, but has a 
further socket of its own, so nothing is lost and 
quite a bit gained. 

All this sounds very impressive, but is it as good 
as the press release claims it to be? Like all press 
releases, this one is not telling lies, but is quite 
often leaving a bit of the truth out! One gets the 
impression that you would have a true 40 x 25 
screen area on which you can merrily program 


impressive graphics for anything from arcade 
games to word processing packages. Not so. 

On connecting up the unit and powering it all 
up, you have lost the traditional ‘window’ screen 
display of the Vic, and the whole screen is there 
for you to marvel at. Somewhat reminiscent of 
the old Commodore Pet 4032 display. The old Vic 
appearance is not all you’ve lost however. Also 
gone are the Vic graphics, colour controls, ability 
to use high resolution graphics, and indeed just 
about everything you’ve become familiar with. In 
their place is the Prestel character set, which in its 
defence is quite impressive, and a variety of other 
control characters: for some reason best known 
to Beelines, actioning these involves positioning 
them on the screen, thus losing some of the 40 x 
25 area. 

These control characters include the ability to 
produce double height characters, flashing 
characters, and so on. What you can’t do is alter 
the background colouring: you start off with 
white on a black background, and black it will 
remain, whatever you try and do about it. 

One further feature that | personally would like 
to see changed is that you cannot revert to the 
ordinary Vic screen, once the board is wired up. 
To get back into Vic mode you have to disconnect 
everything and start again. It would have been 
nice to be able to swap from one to the other at 
will. One the plus side, the colour quality looks 
distinctly better than on a normal Vic, with only a 
slight shimmer when scrolling through a listing, or 
simply scrolling off the screen. 

So, it does give you an extra amount of 
memory, and all told is probably fairly cheap for 
an additional 29K of RAM and a 40 x 25 display 
area, even if it is only a display area. At 220 
pounds it will probably be of most use to the 
businessman or technician who wants to use a 
larger screen area (for say stock control, or 
whatever), but for the average hobbyist | can’t 
honestly see it being of much use. 






a 


The Beelines Beebox 
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Club News 





Vic & The User Club 


VIC & The User Clubs 

It didn’t take too long after the first microcom- 
puters started appearing for the very first User 
Groups in this country to begin springing up. 
These were usually started up by enthusiastic 
amateurs, who wanted to pool their resources in 
order to further their own individual knowledge 
concerning whatever particular micro they 
owned. 

Given time, these User Groups got onto a much 
firmer footing, and nowadays the most suc- 
cessful of these is probably the Independent PET 
Users Group, or as they recently renamed 
themselves, the Independent Commodore Pro- 
ducts Users Group. They have their own chair- 
man, secretary, treasurer and so on, and regularly 
hold committee meetings in order to determine 
the future path of ICPUG (as we shall call them 
from now on). 

It soon became apparent that running a nation- 
wide set of groups was more than just one body 
of people could handle, and so ICPUG ‘split up’ in- 
to a number of regional sub-groups: today there 
are 20 or so of these regionals, all coming under 
the ICPUG umbrella of organisation. As a point of 
information, the contact for any queries, offers of 
help etc. is Mrs. Eli Pamphlett, at 7 Lower Green, 
Tewin, Welwyn, Hertfordshire (Tel. Welwyn 
7325). 

Firstly, what is the purpose of joining, organis- 
ing, starting, or indeed having anything to do with 
a VIC Users Group? User Groups exist for many 
purposes, not least of which is the dissemination 
of information pooled from many _ sources: 
something which an individual working alone can- 
not possibly hope to do. Many brains working 
together can more often that not accomplish far 
more than one lone sole slaving over memory 
maps, soldering irons and the like. 

User Groups also have the ability to organise 
seminars, attend exhibitions etc., again 
something that one person alone cannot do. 

Thirdly, if, as |CPUG have, you can establish a 
good working relationship with the manufacturer 
whose products you’re using, you stand a very 
good chance of being kept abreast of all the latest 
information regarding that company. 

Finally, it is a chance to meet other brethren en- 
thusiasts, and find out for yourself what others 
have already discovered. The wheel is re-invented 
many times in the microcomputer industry: 
there’s no reason why you should have to do the 
same! 

So, what are ICPUG doing in terms of the VIC, 
and how do they hope to proceed in the months 
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to come? 

The main man behind the current set-up is Mike 
Todd, whose name you may have encountered in 
VIC Computing as the writer of many interesting 
articles on the VIC 20. In his spare time Mike 
works for BBC Radio, and could arguably be 
described as the most Knowledgeable man in the 
U.K. on the VIC at present. It is his role to get the 
VIC machine rolling, and with that in mind he is 
looking for people around the country to begin 
setting up VIC User Groups. As stated earlier, 
there are twenty PET groups at the moment: if 
you contact Mrs. Pamphlett at the address given 
earlier, she'll be able to tell you where they all are. 

Initually, ICPUG would like to see VIC people 
joining existing PET groups: if the demand is suffi- 
cient, these can later disassociate themselves 
from the PET side of the group, but of course keep 
in with ICPUG and retain all the benefits which 
that entails. The sort of person you are (technical, 
software, hardware) doesn’t really matter: the 
important point is that you own, or have access 
to, a VIC, and are enthusiastic about the machine! 

The kind of thing that ICPUG are looking for, 
from people keen on setting up a User Group, is a) 
people who can bring in their own software, and 
more importantly b) people who are willing to 
convert the vast library of PET programs that 
already exist to work on the VIC. With the majori- 
ty of the programs this should present no great 
problems. The point is that it gets done! 

If enthusiasm isn’t enough to convince you, IC- 
PUG are willing to offer up to 50 pounds to cover 
the initial expenses of setting up a group. This will 
be necessary to cover mailouts and the like. As 
well as this, ICPUG are in the position to receive a 
vast amount of information from Commodore, 
both technical and promotional, and are more 
than willing to disseminate that to people who go 
about organising a VIC group. 

If enough people get together on this, it is 
possible that at some future date an |VUG might 
appear, with it’s own committee and so on. 
However, time alone will tell on this one. 

User Groups are important. They fulfil a vital 
role for both the newcomer and the experienced 
computer user. As a base for gathering and giving 
out facts on a particular machine they probably 
have no equal, as they have the ability to call ona 
large number of knowledgeable people in a 
specific area. Joining one, or starting one up, can 
only be of ultimate benefit to yourself as a com- 
puter user. It will take up some of your time, there 
is no doubt about that, but that time will be 
dramatically rewarded. 


FOLLOW THE LEADERS: 
RALLY ROUND TO 


COMPUTER SUPPLIES (SWANSEA) 


THE MICROCOMPUTER 
SPECIALISTS 


THE LONGEST ESTABLISHED MICROCOMPUTER 
DEALER IN SOUTH WALES 


80/82 Gower Road, Sketty, Swansea, SA2 9BZ 
Telephone: Swansea (0792) 290047 


commodore 


COMPUTER 








Standard 
specification includes:- 

e@ |EEE-488 AH1, L1, E1 Interface 

@ Full A4 format @ 700 mm/s max. writing speed 


@ Suitable for direct connection to PET and many other 
computers 


@ Optional software including character generator available 


Price including IEEE Interface £596 + VAT 


J.J. LLOYD INSTRUMENTS LTD. 


Brook Avenue, Warsash, Southampton, SO3 6HP. 





England. Tel: Locks Heath 4221 (STD 048 95). 
INSTRUMENTS Telex: 477042 — JAY JAY — SOTON. 


INLAB 


The Interface 
System 
to suit your Micro 





APPLE II/ITT 2020 
CBM PET/VIC-20 
HP-85 (IEEE-488) 
SUPERBRAIN 
SHARP MZ-80K/80B 
TRS-80 

S-100 Computers 

or RS232C/V24 

or 20mA current loop 





INLAB is a multi-channel 
modular Eurocard system 
housed in a 19” industrial 
rack with integral power 
supply, connectors, ribbon 
cable etc. 


Units available include:- 

@ 16-,8-, 4- channel 
analog multiplexers 

@ 12-bit A/D convertor 
(25, psec) 

@ 13-bit integrating A/D 
convertor 


@ 12-bit 4 channel D/A 
convertor 


@ 6 BCD digits opto-isolated 
inputs with full hand-shake 

@ 8-channel relay (or opto- 
isolator) control unit 


® Bidirectional RS232C/V24 + 
current loop with handshake 


@ Programmable stepper 
motor controller + 
power supply 

@ Real Time Clock/Calendar 


@ 8 Decade Universal 
Frequency/Period Counter. 
Fully programmable. 
(DC-10MHz) 


@ 8-channel programmable 
gain amplifier. 
Fully differential. 


FULL HARDWARE & 
SOFTWARE SUPPORT 


Write/Telephone for a 
demonstration with your 
own computer. 


Digital 
Design and 
Development 





18/19 Warren Street 
London W1P 5DB Tel: 01 387 7388 
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Communications 


A significant step forward in the twin worlds of 
communications and education has been made by 
the recent announcement of a product called the 
VicSwitch, only just released by Datalect Limited, 
of Croydon (tel. 04862 63901/25995). Thisis a 
networking system for (surprisingly) the Vic. 

The idea of networking is not a new one, and 
has been exploited by many ‘add-on’ manufac- 
turers before now. However, no-one has yet pro- 
duced any such system for the Vic, and Datalect 
look fairly certain to make a killing with this. So 
why should networking be of importance to 
educational users? 


Educational Importance 

Any educationalist worth his financial salt will 
always consider the cost of any project before 
embarking on that project. Schools are not alone 
in feeling the pinch at present, but they are 
possibly suffering more than most, and so any 
monetary commitment must be very carefully ex- 
amined. This is why | believe that the VicSwitch 
will be a major success. 

Despite the low cost of the Vic itself, the cost 
of the various peripherals is rather high: a disk 
drive at 396 pounds and a printer at 230 pounds 
become expensive items when more than one is 
required. What is more to the point, the Vic is 
making considerable inroads into the educational 
arena, but people may well have been put off by 
the prohibitive cost of buying complete systems 
every time. 

This is unfortunate because complete systems 
are more often not only an advantage, but a 
necessity. Both the disk drive and the printer are 
extremely useful devices to have, and because of 
the nature of the majority of educational uses that 
a set-up is likely to be put to, a disk drive in par- 
ticular becomes distinctly desirable. There can be 
nothing worse than losing a child’s attention 
because he has to wait 5 minutes for a program 
to load from tape. It is also preferable to have hard 
copy at the end of the day as some measure of 
achievement. It would be a shame if Commodore 
were to lose out because people were put off by 
price. 


Cheaper Access 
No more! The VicSwitch provides an inexpensive 
way of allowing many users access to a single 
disk drive and printer. Cost of the mother unit is 
50 pounds, and the requisite number of daugher 
units at 30 pounds each: definitely cheaper than 
626 pounds for each combined set of disk drive 
and printer. 

At the centre of the network is a unit which 
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connects up to the back of the Vic, and from 
there on all the other Vics are linked up in a loop- 
type system. Once everything is connected up, 
each Vic can quite happily carry on processing in- 
formation, or displaying some educational pro- 
gram on the screen, and get hold of the one disk 
drive or printer as required. If one user is already 
loading or saving a program (or file for that mat- 
ter), the next user simply waits his or her turn un- 
til the unit is free, and then gains access himself. 
Further advantages can be gained from the fact 
that each separate Vic can be up to 50 metres 
from its nearest neighbouring Vic, which allows 
for a lot of flexibility within fairly large schools. 


Other Uses 

Of course, it is not just schools that are likely to 
benefit from this system. Factories for instance, 
could have a number of Vics monitoring different 
processes going on, and then all of them could 
have access to a common main program on disk 
for continuous updating of information. Printout 
from each separate Vic could also be easily, and 
cheaply achieved. 

I'm sure there are many other uses to which 
this could be put. The reason for including it in 
this section of the magazine should be fairly ob- 
vious: over the last two months we’ve concen- 
trated on Petnet and Telecomputing, both forms 
of networking using Pets. It’s nice to see the 
smaller end of the market getting a share of the 
action, and thus opening up this most useful field 
for people with more limited resources. 


1° ZIPIDCO~1 


ECTRONIC 
GAMES, INC. , 


‘A Bit Excessive, This One, Eh, Jenkins?’ 


Future Feedback 

If you belong in an establishment that is using 
VicSwitch, please write and let us know, and in 
what sort of environment you’re using the pro- 
duct. Both ourselves and the suppliers of the 
package would be extremely interested in any 
feedback. 


FREE 
PET/CBM 
COMAL 


“The excitement In Europe (over COMAL) 
seems to be growing by the hour and we look 
forward to America being able to share in the 
good fortune of having an easy-to-use, struc- 


tured, planning language at last.” 


The power of PASCAL and the ease of BASIC 
can now be yours with Commodore COMAL, a 
new programming language from DENMARK. It 
is being distributed in the USA by the COMAL 
USERS GROUP. To find out more about COMAL 
and how you can get a free disk copy of Com- 
modore COMAL, send a large self-addressed 
stamped (35 cents) envelope to: 


COMAL USERS GROUP 
5501 GROVELAND TER., MADISON, WI 53716. 
Outside USA please add $2.00 for airmal and handling. 
“PET & CBM are trademarks of Commodore Business Machines. 





Commodore CBM systems are dependable, efficient, 
versatile, easy to maintain. That’s why so many companies, 
big and small make their move through 

Industrial Estate 
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D.M.S. 
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DEPT. PURCHASERS: SEND FOR OUR 
PRICE LIST 


Je CASH PURCHASERS 
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WILL PAY YOUR V.A.T. 
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Languages 


OMAL 


COMAL — Commands which have BASIC 
equivalents 

by Brian Grainger 
In the following article | will show on the left side 
of the page some COMAL statements. On the 
right side of the page | will show how the same 
result is obtained in BASIC. In this way you 
should be able to see how to convert BASIC pro- 
grams into COMAL and also get some idea of the 
use of some of the COMAL commands. | shall 
show the COMAL statements as they would ap- 
pear on the screen should they be listed. As you 
will see in the article on features unique to COM- 
AL, it is not necessary to type all you see. It still 


works if you do though. 


COMAL 

0010 CASE A OF 

0020 WHEN 1 

0030 PRINT"A IS ODD" 
0040 WHEN 2 

O00SO PRINT"A IS EVEN" 
0060 OTHERWISE 


BASIC 

10 ON A GOTO 30.40 

20 PRINT"A IS OUT OF RANGE": 
GOTO 50 

30 PRINT"A IS ODD":GOTO 50 

40 PRINT"A IS EVEN" 


50 -preee 


0070 PRINT"A IS OUT OF RANGE" 


0080 ENDCASE 


Az=1 ; B:=2 

CHAIN "FILENAME" 
CLOSE 

CON 

DEL 100 

DIM MATRIX(0:100.0:10) 
A DIV B 


0010 EXEC SUBPROGRAM 
0100 PROC SUBPROGRAM 


? 
0200 ENDPROC SUBPROGRAM 


0100 PROC FNR(X) 

0110 FNR:=INT(X*100+.5) 
0120 ENDPROC FNR 
NO:=FALSE 

FOR I=1 TO 10 DO PRINT I 


0010 FOR I=1 TO 10 DO 
0020 PRINT I 

0030 PRINT I*2 

0040 NEXT I 


0010 GOTO FINISH 


0100 FINISH: 
0110 PRINT"END OF PROGRAM" 


0010 IF A=B THEN 
0020 PRINT"A EQUALS B" 
0030 ELIF A>B THEN 


0040 PRINT"A GREATER THAN B” 


0050 ELSE 
0060 PRINT’A LESS THAN B" 
0070 ENDIF 


INPUT"WHAT IS NUMBER? ":NO 
LOAD" FILENAME” 

A MOD B 

OPEN 2,"FILENAME”,READ 
OPEN 2,”FILENAME” WRITE 
OPEN 2,"FILENAME", APPEND 


OPEN 2,"FILENAME", RANDOM 100 


ORD ("A") 

SELECT OUTPUT "LP" 
followed by 

SELECT OUTPUT "DS" 
PRINT A$;BS;CS 
PRINT AS,BS 
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A=1:B=2 
LOAD"O:FILENAME",8:RUN 
DCLOSE 

CONT 

100 <RETURN> 

DIM MATRIX(100.10) 
INTCA/B) 


10 GOsUB 100 
; 
100 spre 


; 
200 RETURN 


100 DEF FNR(X)=INT(X*100+.5) 


NO=0 
FOR I=1 TO 10:PRINT I:NEXT 


10 FOR I=1 TO 10 
20 PRINT I 

30 PRINT I*2 

40 NEXT 

10 GOTO 110 


; 


410 PRINT"END OF PROGRAM" 


10 IFA=BTHENPRINT"A EQUALS B" 
:60TO 40 

20 IFA>BTHENPRINT"A GREATER 
THAN B":GOTO 40 

30 PRINT"A LESS THAN B" 


INPUT"WHAT IS NUMBER";NO 
LOAD"0:FILENAME".8 
A-INT(A/B) *B 

OPEN2 .8 .8."0: FILENAME .SEQ,R" 
OPEN2 .8.8."0: FILENAME .SEQ,W" 
APPEND#2 .""F ILENAME"™ 

DOPEN#2 ."FILENAME".L100 
ASCCYA") 

OPEN1 .4:CMD1 

followed by 

PRINT#1:CLOSE1 

PRINT AS;" ";BS;" ";CS 
PRINT AS;BS 





0010 ZONE:=10 PRINT A.B 

0020 PRINT A.B 

0010 REPEAT 10 I=1+1 

0020 1:=I+1 20 PRINT I 

0030 PRINT I 30 IF 110 GOTO 10 

0040 UNTIL 1=10 

A=RND (X.Y) A=X+INT (CYX41) #RND (0) ) 

A=RND(O) A=RND (0) 

SAVE" FILENAME” SAVE"O: FILENAME" .8 

SIZE PRINT FRECO) 

STATUS OPEN15 .8.15:INPUT#15 .AS.BS. 
C$.D$:PRINTAS;B$;C$;D$ 
=CLOSE15 

PRINT STATUS(2) (e.g.) INPUT#2 -ASz INPUT#15 -ER 
:PRINT ER 

NOz=TRUE NO=1 

0010 WHILE I>0 do 10 IF 1<=0 GOTO 50 

0020 NO:=NO+I 20 NO=NO+I 

0030 I:=I-1 30 I=I-1 

0040 ENDWHILE 40 GOTO 10 

0050 PRINT NO 50 PRINT NO 

READ FILE 2:A$ INPUTH2 AS 

WRITE FILE 2:A$ PRINT#2 -AS 


READ FILE 4.12.3:AS 
WRITE FILE 4.12.3:A$ 


RECORD#4 12.3: INPUTH4.AS 
RECORD#4 .12.3:PRINTH4.AS 


EDIT LIsT 

CAT CATALOG 
cAT O CATALOG DO 
CAT 1 CATALOG D1 


PRINT NAMES(1:N) PRINT LEFTS(NAMES.N) 
PRINT NAMES(M:M+N-1) PRINT MIDS(NAMES.M.N) 


PRINT NAMESCEND-N+1:END) PRINT RIGHTS(NAMES.N) 

A# Cinteger variable) Ax 

N.B. This uses less storage N.B, This uses same storage 
than A as A 


Some of the COMAL examples above may look 
clumsy compared with the BASIC equivalents. 
This is because | have contrived to present exact 
equivalents. In practise the COMAL program 
would be written bearing in mind the use of the 
COMAL commands, not the use of BASIC 
equivalents. Some of the COMAL commands 
shown above have extra uses. See the article on 
features unique to COMAL. 


COMAL — Commands without BASIC 
equivalents 
In this article | shall be looking at the features of 
COMAL which are not available in BASIC. | will in- 
troduce some new commands as well as different 
forms of commands already discussed. Finally | 
want to discuss the relationship between what 
needs to be typed and what COMAL will 
automatically fill in for itself. ALL COMAL ex- 
amples will be shown as if they were listed on the 
screen. Having said that let us get underway with 
the features unique to COMAL: 
1) AUTO is a command which will generate line 
numbers automatically. 
e.g. AUTO generates 10,20,30 
AUTO 100 generates 100,110,120 
AUTO 100,5 generates 100,105,110 
Automatic line numbering is turned off by press- 
ing return to a line number. 


2) The CASE command is far more versatile than 
a replacement for ON . . .GOSUB. The expression 
to be tested can be a string expression or logical 
expression as well as being numerical as in 
BASIC. In addition where BASIC expects the 
values taken by the expression to be sequential 
the CASE command will allow ANY values: 
0010 CASE COLOURS OF 
0020 WHEN “RED”, ““YELLOW”’, ‘’*BLUE’’ 
0030 PRINT COLOURS: “IS A PRIMARY 
COLOUR” 
0040 OTHERWISE 
0050 PRINT COLOURS: 
COLOUR” 
0060 ENDCASE 
3) The DEL command can also be used for block 
deletions. Syntax is identical to the BASIC LIST 
command: 
e.g. DEL 100-250 will delete all lines from 100 to 
250 inclusive. 
4) Array handling in COMAL is extremely power- 
ful. The DIM statement of COMAL equivalent to 
that of BASIC looks clumsy but consider that in 
COMAL the index of an array can range from ANY 
integer to ANY larger integer: 
e.g. DIM FIELD (— 3:7) declares a one dimension 
array with indices from — 3 to 7 inclusive. 
e.g. DIM NUMBER(6) declares an array with in- 
dices 1 to 6 inclusive (there is NOT a O element as 
in BASIC unless declared specifically). 

In COMAL the maximum length of a string 
MUST be defined: 
e.g. DIM NAMES of 10 declares a string of max- 
imum length 10 characters. 
e.g. DIM NAMES(2:5.3:7) of 10 declares a string 
two dimensional array of 20 elements, each with 
maximum length 10 characters. 
N.B. ALL array variables MUST be dimensioned. 
There are no defaults as in BASIC. 
5) The ENTER command can be used to merge 
previously LISTed files into the current program: 
e.g. ENTER’’FILENAME”’ will merge FILENAME 
from disk into the current program. Lines will be 
overwritten and reordered as necessary: 
e.g. ENTER’’FILENAME’’,1 will take the file nam- 
ed FILENAME from cassette and merge it with the 
current program. 
6) EOD — This is a logical variable which is TRUE 
when the last item in DATA statements is READ. 
7) EOF(X) — This is a logical variable which is 
TRUE when the last item from channel X is taken. 
8) EXEC is more than a replacement for GOSUB. 
Together with the PROC command we have a 
very powerful feature. Parameters can be passed 
to a subroutine. Variables used in a subroutine 
can be global to the whole program (in which case 


“IS A MIXED 


changes made to the variables in the subroutine 
will be recognised in the main program), or local 
to the subroutine (in which case the main program 
will not recognise any parameters used in the sub- 
program). All parameters to a subprogram are 
local unless identified as REF parameters. As out- 
put parameters must be recognised by the main 
program they must be defined as REF parameters. 
For space limitations all arrays must be defined as 
REF parameters: 

0010 1:=2; J:=3; D:=5 

0020 EXEC MULTI(I,J,K) 

0030 PRINT K,D 

0040 END 

0050 PROC MULT(A,B,REF C) CLOSED 

0060 D:=A*B 

0070 C:=A*A+B*B+2*D 

0080 ENDPROC MULT 

The EXEC command will cause MULT to be ex- 
ecuted with A replaced by IB replaced by J and C 
replaced by K. Because C is a REF parameter the 
value will be kept by K when the procedure is 
complete. As the procedure heading has the word 
CLOSED appended all variables used by the pro- 
cedure are local and can take the same identity as 
those elsewhere in the program with no confu- 
sion. If the program above is RUN you will find D 
is printed as 5 not 6 which would be the value if 
the D in the procedure had any effect. If the word 
CLOSED had been omitted then D would have 
been global and D would be printed as 6. The 
storage used for local variables is dynamic so that 
on exit from the subroutine the storage is released 
for other use. 

The PROC used as a function is also more 
powerful than the BASIC DEF FN. In BASIC one 
can only use 1 line to define the function. In COM- 
AL one can use as many lines as necessary. 

9) The IN function, used with strings determines 
whether one string is contained within another 
and returns the position of the first character if so. 
If the string is not found a value of O is returned: 
0005 DIM NAMES OF 9 

0010 NAMES: =‘‘FREDERICK”’ 

0020 A:=RACK IN NAMES 

0030 B:=‘’DAVE”’ IN NAMES 

0040 PRINT A,B 

The above example will result in A being 6 and B 
being O. 

10) The INPUT command is bombproof. It does 
not exitifa return is pressed. It will also accept 
commas and colons etc. in string input. If a listing 
of strings are being input, it does mean that each 
variable must be separated by return . 


More next month 
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Software Review 


PetSpeed 


There are a number of Basic compilers available 
for the Commodore range of computers at 
present. One such is called PetSpeed, from 
Oxford Computer Systems, distributed at present 
by Commodore themselves, and_ presently 
available for 4000 and 8000 series machines. 
Before examining the package in some detail, let 
us first of all answer the question: ‘‘What is a 
Compiler?’”’ 

When you’re writing your program in Basic, you 
are using the built-in Basic interpreter of the Pet to 
do so. Consequently, when you are satisfied that 
your program is correct and you RUN it, it is the 
interpreter that takes care of what is actually 
happening. It recognizes the type of statement, 
checks the syntax, does many other things and 
finally obeys the statemement. 


Slow Programs 

This as you can readily appreciate, takes a 
considerable length of time to do, it all has to be 
repeated each time the statement is met, and so 
your program will not be running particularly 
quickly. This is not usually any great hindrance 
but there are occasions when speed is vital, and 
you wished you knew a little bit more about 
machine code than ‘it looks like a lot of 
meaningless figures and numbers’. 

This is where the compiler comes in. When a 
program is compiled, all it does in executing the 
program is recognise the statement, check syntax 
etc. once only, and it is then just the obeying of 
the statement that has to be done each time. 
Thus, there is a considerable saving in the amount 
of time required to execute a program. 

In essence then, a compiler takes your Basic 
program and converts it into machine. code. 
Purists will howl at that definition, but it will do as 
a starting block on which to build future 
arguments. What was once 700 lines of Basic 
code is reduced to a single line (in the case of 
PetSpeed this becomes SYS(1061)). Thus the 
program becomes impossible to edit, and hence 
you must ensure that the program is fully de- 
bugged before compilation. 

So, if it doesn’t convert it into machine code, 
what does it do? 


Compiler inaction 


PetSpeed converts your Basic program, over a 
four pass phase, into what they term Speedcode 
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The Speedy Pet 


(pseudo-code), which is then interpreted at run 
time. The whole aim of PetSpeed is to make your 
compiled program run as fast as possible, so let’s 
take a look at it. 


PetSpeed Manual 

It is sadly inevitable when reviewing something 
from Commodore themselves, that the 
accompanying manual must come under fairly 
close scrutiny. Well, Gail Wellington, have no 
fear! This manual is good, well organised, well 
printed, and well presented. It is also short, 
succint,and to the point. In other words, a lesson 
for other manual writers. 


PetSpeed Program 

On acquiring your copy of PetSpeed, the first 
action to be taken is to insert the now familiar 
protection device, the dongle, into the cassette 


port at the rear of the machine. Secondly, a disk 
with the program to be compiled must be placed 
in drive one, and you must ensure that the 
diskette has at least 500 blocks free, as 
PetSpeed produces a number of different files in 
the process of compilation, one of which may be 
several hundred blocks long. 

Placing the PetSpeed disk in drive zero, and 
pressing shift and run/stop gets the show on the 
road. All you have then to do, having (as we 
stressed earlier) checked that your source 
program is snytactically correct, is type in the 
name of that source program when requested, 
and then sit back with a cup of coffee whilst 
PetSpeed goes about its business. 

There are four stages to this process. Pass One 
is concerned principally with symbol table 
building, which it sorts in order to give priority to 
those parts of the code which will be accessed 
most frequently at run time. This pass also 
performs a complete analysis of any data 
statements contained in the source program, 
converting them in some circumstances to both 
CBM Ascii (PETSCII!) and binary entries in its own 
file. 

Pass Two performs the main syntax analysis, 
and it is here that a very detailed version of the 
original program is built up and stored on drive 
one. This is the large program mentioned earlier. 

Pass Three takes this detailed version, and 
breaks it down into a more simplified structure. 
From this structure, the final Speedcode is 
generated. 

Finally, Pass Four arranges all the program 
segments in memory, and links everything up 
correctly. When this is completed, the program is 
saved to drive 1 (with the suffix .gt) and all the 
other files that have been created (with one 
exception, for use in error checking) are then 
scratched. 


Compatibility with Pet Basic 

There are few limitations which you have to 
overcome before compiling your program. The 
three to watch out for are (1) you cannot have 
RUN in your program e.g. RUN 1000 is not 
allowed. (2) the same goes for LIST as well. (3) 
PetSpeed cannot handle dynamic arrays (e.g. 
those that are defined as DIM A$(N)), so you have 
to find the highest value of N that is likely to 
occur, and dimension A$ that way. Thus, if N is 
never going to exceed 100, your original program 
must contain the statement DIM A$(100). 

PetSpeed does not expect to come across calls 
to machine code subroutines in a program. These 
should be removed prior to compilation, but there 


is a reasonably detailed section of the manual 
devoted to telling you how to get those machine 
code parts back in again, and how to pass 
variables from the Speedcode generated by 
PetSpeed to your routines and back again. 

As if to make up for these limitations, there are 
a number of enhancements that have been 
added. User-defined strings, integer FOR loops, 
options to have long variable names that are 
actually recognised, and true integer arithmetic 
(which considerably speeds up program 
execution). 


Programming 

Use of PetSpeed allows you to produce more 
legible Basic programs, as you no longer have to 
worry about avoiding spaces and REMs, packing 
a number of statements onto the same line, 
declare frequently occuring variables at the start 
of a program, or any of the things normally done 
to produce swift code. You can now write 
programs that are readable by people other than 
yourself (and yourself six months later, come to 
that). PetSpeed goes all out to make your 
program run as fast as possible: speed gains of up 
to 40 times have been recorded. 


Summary 

PetSpeed is a most useful addition to anyone’s 
software library, and at 240 pounds it should be 
available from any of the Commodore dealers. 

You don’t have to learn anything (other than 
how to type) to be able to use the package, which 
is a great advantage. It allows you to improve 
your own Basic programming, and then when 
you're happy that everything is error free and 
running correctly, produce a version of your 
program that is significantly faster in execution. 
For instance, we compiled the well known game 
Adventure: as a lengthy Basic program, involving 
a lot of string handling, we were interested to see 
how the uncompiled and compiled versions 
measured up to each other. The difference was, 
literally at first, staggering. | won’t tell you what 
one person said when he saw the compiled 
version running, but | gathered that he was 
impressed. 

And so were we all. Commodore taking a 
program on board is usually the kis of death, but 
PetSpeed has survived intact. Highly 
recommended. 
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Hardware Review 





The PET Single Disk Drive 


The 2031 disk unit is supplied with a mains 
lead (complete with 13A plug!) but the ap- 
propriate signal lead necessary to connect the 
unit to the PET has to be purchased separately. 
This should be a PET to IEEE lead if no other 
devices are connected to the IEEE port or an IEEE 
lead if a printer, for example, is already connected 
to the PET. A demonstration disk with a perfor- 
mance test and a few utilities and example pro- 
grams is supplied. In order to run the performance 
test a blank disk must also be used so this is 
something which should not be forgotten when 
buying your disk unit (Why not persuade the 
dealer to give you one?). 

The documentation supplied included the 2031 
User Manual (plus errata sheets), a note on how 
to change the device number, an alternative 
(presumably working) listing of the example pro- 
gram in the manual, an errata sheet for the 
PET/CBM Personal Computer Guide and a test 
certificate (which described the unit as a 4040)!). 

The manual covers connection to the PET and 
power up in some detail with cautionary notes on 
when power should be switched on. It omits to 
mention that the unit was probably left switched 
on at the factory and will power up as soon as you 
plug it in to the mains. The top of the switch on 
the rear panel has to be pushed in to switch off. | 
have since noticed that there is an OFF label but it 
is on the wrong side of the switch! One feature 
which | think would improve the unit is an indica- 
tion that it is switched on. The light on the front is 
only on when the disk is being accessed or when 
an error has been detected (in which case it 
flashes). | am sure a suitably placed resistor could 
be used to make the light glow dimly while power 
is applied. 

There are step by step instructions for running 
the performance test and this presentd no pro- 
blem. The time quoted to run this test (7 minutes) 
is one of the clues that the manual is a hastily 
edited version of a 4040 manual. The test actual- 
ly takes only two and half minutes. 

Once the unit has passed the performance test 
it is ready for normal use. The next set of com- 
mands in the manual, described as_ disk 
maintenance commands, permit the user to for- 
mat a blank disk, read the disk directory and copy, 
rename and scratch (delete) files. 

The NEW command (not be confused with 
NEW in BASIC) must be used to format a blank 
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disk before that disk can be used. The space on 
the disk is organised into a number of tracks and 
sectors by recording track and sector numbers 
together with synchronising information on to the 
disk. Each sector can hold 256 bytes of data and 
the number of sectors per track is as shown in 
Table 1. By reducing the number of sectors on 
tracks nearer the centre of the disk, excessive 
recording density is avoided. 


Table 1 
Track Sector range 
1 te: 47 0 to 20 
18 to 24 0 to 18 
25 to 30 Oto 17 
31 to 35 0 to 16 


Track 35 is nearest centre of disk 


The total number of sectors or blocks is 683. A 
map of these, called the Block Availability Map 
(BAM), is maintained on the disk to show which 
sectors are free and which have data stored in 
them. This map is used by the disk operating 
system (the program which controls the disk unit) 
to rapidly locate enough space to store new infor- 
mation. A disk name and two character identifier 
specified by the user are also written on to the 
disk by the NEW command. 

The disk directory which lists all the files on the 
disk with their sizes and types can be read into 
the PET and displayed on the screen. The disk 
name and identifier, the disk operating system 
(DOS) version and the amount of free space 
available to the user are also indicated. 

After successfully formatting a new disk, | skip- 
ped on a few pages in the manual to the save and 
load commands. These are the familiar com- 
mands used with the tape drive but do not benefit 
from the defaults; the unit number (normally 8 for 
disk) must be specified after the file name. It is 
not necessary to include the drive number 
because the 2031 has only one drive. Using 
these commands | transferred a number of my 
more popular programs from tape to disk. The 
load from disk was not as fast as | had expected, 
but 10 seconds to load 8 k is much better than 


waiting 2 minutes for a tape to load. My daughter 
was most impressed at the speed with which she 
could load her favourite programs and soon learn- 
ed the new command formats; her little brother 
just tried to stuff his sock into the disk unit's 
‘mouth’. 

Having learned the commands necessary to use 
the disk unit, | turned my attention to the pro- 
grams on the demonstration disk. The following 
programs are included: 
DOS SUPPORT A program which can be 
loaded in to the top of 
PET memory to provide 
‘single key’ equivalents 
of disk commands. 
PERFORMANCE TEST To check that the disk 
unit is functioning cor- 
rectly. 

To plot on the PET 
screen the disk Block 
Availability Map. 


GRAPHIC BAM VIEW 


DISPLAY T&S To display the contents 
of a user specified track 
and sector. 

SEQ EXMPL-UNIV To demonstrate sequen- 
tial files. 


SEQ EXMPL-BAS4 As above but with the 
more compact BASIC 4 
commands. 

To exercise the Com- 
modore printer. 

To demonstrate relative 
files. ; 


PRINTER DEMO 


RANDOMEXAMPLE 


The program to display the BAM provided some 
interesting information about the disk unit. The 
BAM on a newly formatted disk shows that only 
sectors O and 1 of track 18 are occupied. The 
manual indicates the format of these sectors 
which hold the BAM and the first block of the 
directory. Note that the number of blocks free in- 
dicated by this program includes the track 18 
blocks which are reserved for further directory en- 
tries. As files are written on to the disk, tracks 
nearest to track 18 are used first. By storing the 
directory on the centre track and storing files as 
near as possible to this track, the time to access a 
file after finding its location in the directory is 
minimised. 

Another sign of intelligence in the unit’s control 
program is revealed when the Qth file has been 
written to the disk and a second directory block 
generated. The new block is not, as may have 
been expected, stored in track 18 sector 2 but in 
18,4. This is the sector which will be approaching 


the read/write head when the first directory block 
has been read and searched and the required en- 
try not found. This technique of spacing the 
blocks allows a full directory to be searched in on- 
ly 3 revolutions of the disk rather than the 20 
revolutions which would be required if con- 
secutive blocks were used. 

The DISPLAY T & S program required some cor- 
rections before it would work properly. It must be 
an edited 4040 program which was not ade- 
quately tested on a 2031. 

The program will display or print the contents of 
a single sector in hexadecimal and character 
forms. It then directs the user to the next sector in 
the file. If this is not required, new track and sec- 
tor numbers can be entered. End of file is not 
recognised and it is necessary to specify an in- 
valid track number to exit from the program and 
terminate disk activity correctly. In spite of these 
shortcomings, it is a useful program which shows 
clearly how data is structured on the disk. 

The sequential file example programs show 
how data can be transferred to and from a disk 
file. They move data from DATA statements in 
the program to a sequential file on disk then read 
it back and display it. The programs are generous- 
ly commented and illustrate the recommended 
practice of checking for errors after each disk 
operation. Because the BASIC 4 disk commands 
are not recognised by BASIC 3 it LISTs them as 
some other command which is confusing when 
you look at a BASIC 4 program using BASIC 3. 
DOPEN and DCLOSE appear as FOR and NEXT in 
the example program. 

| did not try the PRINTER DEMO program 
because | do not have a Commodore printer. My 
colleague and fellow 2031 owner Ron Cason ran 
it and produced four or five pages of assorted ex- 
amples of the capability of the printer. The RAN- 
DOMEXAMPLE is too big for an 8k PET so | did 
not try that either. 

This concludes the account of my initial work 
with the 2031 disk unit. There are several other 
commands to study which | hope to report on ina 
future article. | think the 2031 will be welcomed 
by many home computer enthusiasts and | con- 
gratulate Commodore for an excellent product but 
they must try to pay more attention to detail and 
get the documentation right. 
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Book Review 


The PET Index 


It must say something for the popularity of the 
Pet that someone could compile an index of 
““every”’ article that has ever appeared about the 
machine, and that a publishing company are will- 
ing to take the risk of getting the book into print 
and distribute it. 

The PET Index, by Mick Ryan (published by 
Gower Press) is just such a book. Covering some 
17 different publications, and extending over 
290 issues of those publications, the author is to 
be congratulated on putting together this book: it 
must have been an awesome administrative task. 

There are approximately 2100 references to 
Pet-related articles in the PET Index. These cover 
everything from Abacus counting to word pro- 
cessing, and stopping off to pay tribute to many 
other subjects on route. As a reference guide, it is 
invaluable for people such as the reviewer, who, 
through the nature of his job, has access to the 
various magazines mentioned in the index. 

Just a quick skim through the book is enough to 
make you realise its value. If you want to find out 
about the ‘bug’ of garbage collection, turning to 
that reference will point you to six articles that 
have been printed about the subject. If you decide 
you're going to tackle the problem of interfacing a 
joystick to the Pet, you'll find that at least 3 cir- 
cuit diagrams have already been published. And 
so it goes on: nine times out of ten you'll find that 
something has already been done, and this book 
tells you where. 


Summary 

It is an extremely comprehensive guide to just 
about everything that has been committed to 
print concerning the Pet. However, it’s usefulness 
must be limited, as not everyone will have the 
300 or so pounds necessary to subscribe to every 
publication covered. Still, as a reference source 
for even the two or three that you may get, it is to 
be recommended. 


Getting Acquainted with your VIC 20 

Oh dear, just about sums up my reaction to this 
book. Written by Tim Hartnell, and published by 
Interface at a cost of 5.95 pounds: what can | 
say? 

Is there a value in publishing a damning indicte- 
ment of a book? | think there is, because it at least 
has the virtue of making people try harder to pro- 
duce worthwhile material, and not just leap into 
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some subject for a fast buck (and | am NOT sug- 
gesting that Tim Hartnells doing this: rather, itis a 
general comment aimed at no-one in particular). 

And so onto the book. A quick look at some of 
the other works that Tim Hartnell has produced 
gives the reason why this one doesn’t quite work. 
Titles like Getting Acquainted with your Acorn 
Atom and Getting Acquainted with your ZX81 
give the game away a little. For instance, the Vic 
DOES allow line numbers greater than 9999, it 
doesn’t have commands like CLS and ABS 
(although all three of these can be applied to a 
certain other microcomputer). Basically this is just 
a re-hash of earlier works, and not a very good 
one at that. Still, once you’ve worked out where 
the errors lie, and if you’re interested in a book 
that gives you over 60 progam listings, it is ac- 
tually of use. Humourously written and 
presented, it gives you an introduction to pro- 
gramming in Basic generally, rather than 
specifically on the Vic, although the appendices 
go some way to amending this. 


Summary 

A specific book aimed at the Vic would have been 
much better than a re-working of earlier publica- 
tions, however good that earlier work may have 
been. It contains numerous errors, and not 
enough attention has been paid to the Vic itself. 
You could probably count the number of times Vic 
is mentioned on the fingers of both hands. But if 
its listings that you're after, then trot along to the 
bookshop and have a look. Correcting the errors 
will probably teach you more about Basic pro- 
gramming than anything else in the book. 


VIC 20 Programmers Reference Guide 

One from Commodore themselves this time, 
retailing at a cost of 9.95 pounds, and should be 
available from any Commodore Vic dealer. 

The aim of the book is to take you on further 
than the original manual supplied with the Vic, 
which shouldn't be too difficult. Being written by 
some respected names (Paul Higginbottom and 
Mike Tomczyk amongst others), you begin to feel 
fairly confident that it can live up to the introduc- 
tory promise ‘gives you more information about 
the Vic than any other source’. 

The book is split up into four chapters, followed 
by a whole host of appendices, covering tables of 
musical notes, screen display codes and memory 


maps, error messages, pinouts for input/output, 
peripherals and accessories, and a number of 
other diverse topics. They’ve even provided a cir- 
cuit diagram of the beast itself, which is 
remarkable (for Commodore) in that it is very 
clearly drawn and laid out. 

The Programmers Reference Guide starts off 
with a fairly gentle introduction to Basic program- 
ming on the Vic, followed by a chapter on pro- 
gramming tips, including quite good sections on 
the use of graphics, colour and sound. 

The heart of the matter is reached by the time 
we get to chapter three, which is a guide to pro- 
gramming the Vic in machine language, always 
assuming you’ve got the Machine Code Monitor 
cartridge, or you typed in Tinyman from last 
month’s issue. This is very nicely presented, as it 
starts off by assuming you know nothing, ends up 
talking about the use of the Kernal (a standardized 
jump table covering input/output and memory 
management routines), and covering the entire 
6501-6505 microprocessor instruction set in 
some detail. 

The final chapter devotes itself to input/output 
operations, including the user port, the serial bus, 
a little bit about the printer (why not the disk drive 


Give your PET a home.... 
Buy it a PETDESK! 


f 


A Commodore approved product. 


Specially designed to take any Commodore Pet system. 


Black leathercloth top and Black metal frame. 
Paper feed tray, top extension shelf. Concealed 
cables and 4 way 13 amp plug socket. 

Mounted on castors. Size 1470 x 560 x 675 mm. 
Delivered flat packed. 


Price £189.50 includes VAT and delivery. 


This offer available UK only. Cheques with order to: 
Tirith Ltd, Pear Tree House, 

Woughton on the Green, Milton Keynes 
MK6 3BE. Telephone: (0908) 679528 
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as well?), and some information on_ using 
joysticks, paddles and light pens. 


Summary 
A very good book, and well worth purchasing if 
you’re thinking of using your Vic at all seriously. 
Well written, well presented, it occasionally suf- 
fers from being produced in the States (what IS a 
‘computerist’?!), but better grammatical errors 
than factual ones, which it seems remarkably free 
of. A good buy. 





The Pet Index 


PET/CBM 
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‘This book is excellent.’ 
- Jim Strasma 


a Ob eltcjeceyerleyhmermoeniaruetbe:lts 
and comprehensive reference I have seen to date.’ 
3 - Jim Butterfield 


Bestseller — comprehensive 
teaching and reference book on 
all software aspects of 
Commodores 2000, 3000, 
4000 and 8000 
microcomputers and 
peripherals. 

eS CEE ore cen ee ease mee ee Se Sa tee 

Cut out or copy coupon, or write to: 
LEVEL LTD., PO Box 438, Hampstead, London NW3 1BH. 


Many programs, charts and diagrams. 
17 chapters, appendices, and index. 
iv + 504 pages. 19 x 26 x 2%cm. 
Paperback. ISBN 0 9507650 0 7. 
Price in UK and Europe £14.90 each 
(incl. post and heavy-duty packing). 
LEVEL LTD., PO Box 438, Hampstead, 
London NW3 1BH. Tel: 01-794 9848. 
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Scanning the Stack 


The stack is a group of locations from hex- 
adecimal $0100 to $0O1FF that can be quickly 
and conveniently used by the 6502. In the PET, 
the stack range is limited to the area from $0140 
to $01FA; but most of the time you don’t need to 
know where the stack is working; you may just 
use it. 

When you have something that needs keeping 
for a few moments, you can put it on the stack 
and call it back later. So long as you’re neat, you 
don’t even need to know where it will go — the 
processor keeps track of that with a special 
register called a Stack Pointer. It will put informa- 
tion away to the stack and bring it back without 
any special information from you. 

But you must be neat. The slogan ‘‘Leave these 
premises as clean as you found them’’ applies 
critically to the way you use the stack. If you put 
something in there, you must be sure to call it 
back or you'll be in trouble. 

The stack is appropriately named. It’s like a 
stack of dishes: the first thing that comes off will 
be the last thing that was put on. It’s called LIFO 
(Last-in-first-out) storage. 

Standard usage 

If you have a value in the A register that you want 
to put aside for a moment or so, you can push it to 
the stack using the PHA (48) instruction. Now 
you can use the A register for something else, and 
when you're finished you can call back the 
original value by pulling it from the stack with PLA 
(68). 

Sometimes you might want to defer a decision. 
You've just done a comparison or some other ac- 
tivity, and the results are important — but you 
don’t want to act on those results yet. You can 
push the status word — all various flags, such as 
Carry, Overflow, etc. — to stack with PHP (08). 
Now you can tidy up your registers without wor- 
rying about those losing flags. They will come 
back as soon as you give PLP (28) and you can 
then proceed with the Branch commands that will 
test the condition you previously set up. 

When you call a subroutine with a JSR com- 
mand, the stack is called into play automatically. 
The return address, minus one, is placed on the 
stack. Later, when the RTS is given, that address 
is called back from the stack and program execu- 
tion resumes at the instruction following the JSR. 

An example here might be worth while. If you 
are at location hex $1234, and give the instruc- 
tion JSR $4455, the address $1236 will be plac- 
ed on the stack. That’s not your return point — 
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you'll return to $1237 since the JSR command is 
3 bytes long — but the RTS instruction will sort 
everything out correctly. Here’s a little more 
detail: when the address $1236 is placed on the 
stack it will use two locations. The high-order part 
(12) goes onto the stack first, followed by the 
low-order portion (36). 

When the 6502 receives an interrupt — and on 
this PET this happens 60 times a second — the 
current machine language instruction completes; 
the address of the next instruction is pushed to 
the stack; and finally, the processor Status Word 
is pushed to the stack. Then the processor starts 
to handle the interrupt by going to a new location 
and executing instructions there. When it’s finish- 
ed, it gives a Return from Interrupt instruction 
(RT) which restores the original Status Word and 
instruction address. The original program picks up 
exactly where it left off when it was interrupted. 

You can see that three locations are used in the 
stack this time: two for the return address and 
one for the status word. They go onto the stack in 
that order: address-high, address-low, and 
status. It’s a little like JSR followed by a PHP, 
since we store address and status word. Note, 
however, that the address is the exact return ad- 
dress; with a JSR the address is one less than the 
return address. 

An example: if the processor is executing a 
three-byte instruction at hex $1234 and an inter- 
rupt is signalled, address $1237 is pushed to the 


stack, followed by the status word. Later, when 


RTI is executed, the status word is restored and 
execution resumes at address $1237. 

Finally, the BRK instruction (hex $00) causes 
an interrupt type of action, with this difference: 
the address which is placed on the stack is two 
locations behind the Break instruction. This is 
odd, since the BRK command is only one byte 
long. In this case, if we use an RTI to continue ex- 
ecuting the code following the BRK, we’ll skip one 
byte. 


Tabular Summary 
The following table summarizes the instructions 
that handle the stack. 


Number of bytes Store Recall 
stored or recalled command command 
1 PHA PLA 

1 PHP PLP 

2 JSR RTS 

© Interrupt RTI 

€3 BRK 


PAPERMATE PLUS 


A very powerful word processor for all 
PETs with 16 or 32k memory. Easy to 
use, but packed full of useful 
functions it works with tape or disk. 
Only £45 or £46.50 on disk. 


FLEX-FILE DATABASE 


Flexible, friendly - this information 
storage system is for CBM disk owners 
only. Enter, update, delete or 
retrieve data; print mailing labels; 
or produce reports showing selected 
records and fields (with calculated 
values and column totals if you wish). 
Why pay £250 or more - FLEX-FILE costs 
TUS ZBOe 


MX-80 MIRACLE 


The latest EPSON MX-80 F/T TYPE 3 is in 


stock now, price £450 including an 
Aculab addressable interface (with 
integral cable). If you already have 
the Type 1 or Type 2 we can supply the 
Type 3 upgrade Roms (phone for price). 


The SUPERSOFT range of HIGH RESOLUTION 
GRAPHICS BOARDS represents a very 
economical way to upgrade your PET. 

For £149 you get 8k of additional Ram 
and 320 by 200 resolution. Specify the 
HR-40 for small screen machines, HR-40B 
for the large screen 4000 and HR-80 for 
your 8032 or 8096. 


MX-LIST (£15) prints a PET Basic 
program with all cursor controls, 
graphics, and reverse field characters 


MX-DUMP (£12) copies the PET's screen 
dot for dot onto paper 


MX-SCREENDUMP (£12) will print the 
contents of your HR-40/HR-80 High 
Resolution screen 


CAN YOU 
HELP? 


As the leading distributors of software 
and accessories for the Commodore range 
we're always on the look-out for top 
quality programs and add-ons. If you 
have a PET or VIC product that we would 
be proud to sell contact Peter Calver 
at once! 


MICROSCRIPT 
— AVAILABLE NOW! 


The new MicroScript word processor for 
8000 series machines adds 46k of Rom 
and 2k of Ram to your computer. It 
even turns the two spare Rom sockets 
into four (so you can use Visicalc AND 
Command-0O). 


Powerful, but simple to learn, 
MicroScript has 30,000 bytes available 
for text - that's nearly three times 
the storage that other major programs 
offer. And the 'DataMerge' facility 
makes standard letters a doddle! 


MicroScript costs £425 including manual 
and specially-designed ciruit board. 


DEALER ENQUIRIES WELCOMED 





PRE-PAID ORDERS POST FREE BUT ADD 15% VAT 





SUPERSOFT 


First Floor, 10—14 Canning Road, Wealdstone, 
Harrow, Middlesex, HA3 7SJ, England 
Telephone: 01-861 1166 


ASK FOR OUR 
FREE CATALOGUE 
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Here’s where it gets interesting. ‘‘Ordinary’’ 
programming assumes that you use the compa- 
nion instruction to restore the stack. That is, if 
you used a PHA you should use a PLA to bring the 
information back. If you used a JSR, you should 
use an RTS. But by breaking this unwritten law, 
we can do some pretty fancy things. We must be 
careful, of course. 


The Fun Begins 
Suppose you are writing a subroutine. Normally, 
you'll want to return control to the calling point by 
giving the RTS command. On occasion, however, 
you don’t want to go back; perhaps there’s an er- 
ror in the data so that the calling routine couldn’t 
continue. 

We can handle this. Just pop the return address 
from the stack with two PLA commands, and 
you'll never go back. 


The Computed Jump 

You can jump to any single location you choose 
by using the JMP instruction. There are times, 
however, when you want to jump to one of 
several locations depending on some value you 
have calculated. 

For example, you might be writing a system 
which would jump to one routine if it detected an 
A (add) character, another routine for D (delete); a 
third for C (change), and so on. 

This could be done, of course, with a series of 
compare, branch and jump instructions; but if the 
list is long, the whole thing becomes tedious and 
inefficient. 

You can set up the equivalent of a very power- 
ful computed jump by clever use of the stack. The 
principle is manufacture an address; push it to the 
stack with PHA... PHA; and then give RTS. 

This seems puzzling at first. However can you 
return to a place you never came from? It works 
this way; by pushing the address to the stack, 
you stimulate a non-existent subroutine call. The 
stack doesn’t care. If you issue an RTS instruc- 
tion, the stack will deliver up that address, and 
that’s where you will go. The stack ends up un- 
changed; it has pushed two values and delivered 
them back. 

Remember that the RTS instruction expects the 
address to be one lower than the real return ad- 
dress. If you want to go address hex $3456, you 
must push the values 34 and 55. 

A quick example may help illustrate this power- 
ful technique. Suppose the X register contains a 
value from O to 5. Depending on this value, we 
wish to jump to one of six different locations. We 
have built the destination addresses into a set of 
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address tables, each with six entries. The low 
order part of the addresses are in a table starting 
at hex $2320 and the high order part of the ad- 
dresses are in a second table starting at hex 
$2326. We've carefully remembered to subtract 
one from each address, and the table like the 
following: — 


2320 41 72 A3 C4 ES F6 
2326 24:°25.27 29 :.2B 2C 


If X contains zero, we want to jump to hex 
$2442; if one, we go to $2573; and so on. Let’s 
do it. 


BD 26 23 LDA $2326,X; high order first 
48 PHA 

BD 20 23 LDA $2320,X; low order last 
48 PHA 

60 RTS ; go there 


It’s easy, it’s fast, it’s compact, and it’s one of 
the most powerful tricks in the repertoire of the 
6502 programmer. Microsoft Basic uses it to get 
to the various — PRINT, LET, FOR... etc. The 
Machine Language Monitor uses it to interpret it’s 
commands — M.R., and so on. 


The Stack Pointer 

There are a couple of commands that tell you 
where the stack is working, to allow you to con- 
trol where it is. You won't need to use them very 
often, but a little detail is worthwhile. 

The stack works in a downwards direction. As 
you push things, the stack pointer gets lower. As 
you pull them back, the pointer goes back up. If 
the stack pointer gets down to its bottom value, 
pointing at address hex $0100, it will wrap 
around to $01FF if you try pushing more things 
in; but your program will be in serious trouble long 
before you reach this point. 

The stack pointer indicates the next location 
that will be used. If the pointer has a value of 92, 
you know that the next value that you push will 
go into address $0192; or the next value that you 
will pull will come from address $0193. 


Summary 

Most of the time, the stack will take care of itself. 
Occasionally, however, you'll find that digging a 
little deeper into the mechanics of the stack can 
make it possible to do some very effective coding. 


How to buy a payroll 


100. 90 


First, go to your CBM/PET dealer 
and ask to see at least two different 
payrolls. Second, make sure that one 
of those you see is the LANDSOFT 
‘PAYROLL PLUS’. 

We are serious when we say you 
should see more than one. That way you 
are more likely to find the one most suited to your 
needs. However good PAYROLL PLUS is, there are 
certain things it won’t do that other payrolls will — 
and vice versa. 

Why do we Say that you should insist that 
PAYROLL PLUS is among those you should see? 
Because it is so elegant in operation and so 
extremely easy to use. If you want a 
payroll that needs an expert 
‘computer person’ to operate it, or if 
you enjoy spending hours trying to 
decipher an operating manual then 
PAYROLL PLUS is definitely NOT for 
you. You would find it too quick and 
easy to master. 

So don’t make the mistake of 
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buying another and then seeing PAYROLL PLUS 
afterwards. Your awareness of its excellence could 
then be most frustrating! 

PAYROLL PLUS is in use by a number of 
accountants and even bureaux. 

Versions for 8032, 4032 and 3032 series 
CBM/PET £150+ VAT. 


The Courtyard, 152-154 Ewell Road, 
Surbiton, Surrey. 
Telephone: 01-399 2476/7 


SUPERIOR PROGRAMS FOR THE 
CBM/PET MICROCOMPUTER 





380 STATION ROAD, HARROW, MIDDX. HA1 2DE 
Telephone: 01-863 0833 

















VIC - 20 Computer (Call now for new ‘DISCOUNT PRICES ON Space Storm 6.99 
low low price) QUALITY PRODUCTS’ Ski Run 4.99 
C2N Cassette Unit 39.99 Dune Buggy 4.99 
1540 Floppy Unit 375.00 THE VIC - 20 CENTRE Super Worm 4.99 
1515 Printer 214.95 Jungle 4.99 
Memory Expansion 110.75 Cosmic Battle 4.99 
3K Ram Expansion 27.50 wxxnee NEW xxanne Frogger 7.99 
8K Ram Expansion 39.98 RABBIT WRITER (Wordprocessor) Rab Functions 4.99 
16K Ram Expansion 68.99 Requires 8K or 16K Ram, Star Wars 6.99 
Super Expander Cart 32.50 includes - *mailmerge* Amok 6.99 
Progs Aid Cartridge 34.50 *left and right hand justification * Blitz 4.99 
Vicmon Cartridge 30.00 *tape and disk format * Invader Fall 6.99 
Joystick 6.99 “prints up to 80 columns* Masterwits 6.99 
3K Store Board 51.00 *uses 80 columns* Kiddie Checkers 6.99 
8K Ram Chips 39.00 *uses all function keys for editing etc. * Simple Simon 6.99 
Vickit | 25.00 INTRO PRICE TAPE 9.99 Alien Blitz 7.99 
Vickit II 29.00 DISK 12.50 Functions 4.99 
VIC - 20 Dust Cover 2.00 Code Breaker 4.99 
C2N Dust Cover 1.70 RABBIT BASE Night Flight (3K) 4.99 
Light Pen 25.00 Requires 16K RAM Personal information The Alien (3K) 7.99 
Rom Switch Board 42.00 master, ideal for mailing, personal records, Amazing (3K) 6.99 
Expansion Board 94.99 stock control and filing. Skymath (3K) 6.99 
* + * * * * * INTRO PRICE TAPE 11.99 Spc Division (3K) 6.99 

‘PRI NTERS FOR YOUR Vic by DISK 13.99 Charset 20 (3K) 4.99 
SEIKOSHA PRINTER — Rabbitwriter (16K) 9.99 
The Commodore Printer plugs directly *SPECIAL OFFER **SPECIAL OFFER* Rabbit Base (16K) 11.99 
into the VIC - 20 uses 8” continuous Rabbit Chase 4.99 
paper up to 80 chars per line with a VIC - 20 PRINTER + 16K RAM PACK ALL RUN ON BASIC MACHINE 
speed of 30 c.p.s. 214.95 + RABBIT BASE + RABBIT WRITER EXCEPT WHEN STATED 

ALL THIS FOR ONLY 290.00 RABBIT CHASE 
Hace pe rise tog paper. Rabbit version of the famous arcade game 
80 characters per line with a speed of DON'T FORGET TOSENDORPHONE =| -CODOer™ Chase the Fabbit through the 
80 c.p.s. (INC. VIC - 20 Interface) 458.99 FOR YOUR FULL FREE CATALOGUE z : 
farmers. Use Joystick or Keyboard. 

ALL PRICES ARE INCLUSIVE OF VAT, POSTAGE & PACKING. | farmers Use loyatick or Keybo 4.994 




























FOR FURTHER DETAILS ON ALL PRODUCTS, PLEASE CALL OR WRITE TO THE ABOVE ADDRESS. 
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The 8010 Modem Part Two 


Last month the problems, this month the 
answers! There are two ways to get round these 
difficulties. The first (again, | think pioneered by 
Jim Butterfield) is to write new IEEE routines, 
with reduced and/or variable time-out. In par- 
ticular, it is worth replacing the send data byte 
routines with ones which time out much sooner. 
This is not all that difficult, but it does involve 
low-level IEEE handling (sending listen attention 
sequence, secondary address, data byte(s), 
unlisten sequence) and | do not intend to discuss 
it further in this article. 


The SRO approach 

The second technique is easier, though it only 
gets rid of the do-nothing delay on inputting 
characters from the modem. This is to make use 
of the SRO (service request) line on the IEEE bus, 
which is implemented very nicely on the 8010 
modem (though not so nicely on the PET, but you 
can’t have everything). Whenever the modem has 
a character waiting to be input by the PET, it sets 
SRO low to let the PET know about it. Thus there 
is no need for any timing out or use of ST on input 
— instead you need only check SRQ, and if it low 
handshake the waiting character straight in. 

The catch, and the not-so-nice thing mentioned 
above, is that the designers of the PET were runn- 
ing a bit low on 6520 and 6522 lines when it 
came to fitting SRQ, in, so that it ended up 
somewhere a bit peculiar, though with compen- 
sating advantages. In fact it goes to the CBI input 
of PIA = 2 the 6520 which lives between $E820 
and $E823 in the PETs address space. An active 
transition on this line (high to low with PIA = 2 
set up as normal in the PET) causes an interrupt 
flag to be set; this flag is the most significant bit 
of control register B of this chip, at memory loca- 
tion $E823. With PIA = 2 in its normal configura- 
tion, the setting of this flag does not cause a 
system interrupt; the flag can however easily be 
tested by a PEEK in BASIC, or the BIT instruction 
in machine code. 

Readers are invited to take a stiff drink before 
joining me in the next paragraph. 

Now, when MOS Technology designed the 
6520, they certainly didn’t intend CBI for 
anything like SRQ. The line is designed primarily 
to handshake data into port B of the chip. (As us- 
ed on the PET, port B is at $E822, and is actually 
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used for IEEE output data). The result of this is 
that although the CBI interrupt flag is set by a 
transition on the SRQ line, it is not cleared in the 
same way, nor can it be cleared by a POKE. In- 
stead it remains set until the contents of port B 
are read; this must therefore be done in order to 
clear the flag, although the contents of port B 
should always be $FF, which is not of much 
interest. 

The nasty thing about this (besides being jolly 
confusing) is that it is not standard IEEE. SRQ is 
supposed to be level sensitive, so that in the 
event of several devices requesting service (e.g. 
several modems) one can poll round them until all 
are satisfied and SRO goes high. Instead one has 
an edge sensitive system, with a flag set by SRO 
going low, and cleared by reading an otherwise ir- 
relevant register. There is however a compen- 
sating advantage: by setting bit zero control 
register B at $E823, it can be arranged that the 
CBI interrupt flag being set actually causes a CPU 
interrupt. The use of this is discussed later in this 
article. 

A simple program to handle inputting from the 
modem using SRO can be written in BASIC. There 
isn’t much point to this as the speed of BASIC is 
such a limiting factor anyway; however the pro- 
gram serves as an illustration of what has to be 
done. 


10 CE=S9427 :PE=59426:Ta=128 

ee DEENS: 5: GE ‘=PEEK<PB) :PRINT"CCLRION LINE" 

34 PRINT"*(CLI"s :GETAS:IFASC>"" THEN PRINT#S. Ag; 

36 IF _<PEEK(CB)ANDTS) THEN GET#S,AS°PRINT" [CLI"s A; *X=PEEK (PED 
56 GOTO 36 

READY. 





ie 


In line ten we set up some constants for later 
use, in order to speed program execution. In line 
20 we open to the modem, get a character — this 
is necessary to get the modem set up with SRO 
functioning correctly — then read port B to clear 
the interrupt flag. In 30 we print a cursor, then 
check the keyboard for user input, and if found 
sent to the modem. In 40 we check if the most 
significant bit of $E823 is set — i.e. if the SRQ in- 
terrupt flag has been set. If so there is a character 
waiting in the modem, so we get it, print it, then 
peek port B to clear the interrupt flag. Then we 
loop back and repeat. 

This approach makes a lot more sense if im- 
plemented in machine code. Again, the following 
bit of code is intended only to demonstrate the 


idea, and not as a complete working program. 
CRB and PORTB are labels corresponding to loca- 
tion $E822 and $E823 respectively: 


19 CB=59427 : PB=59426 : T8=128 

26 OPEN 5,.5:GET#5, A$: X=PEEK(PB):PRINT "<CLR)ON LINE” 

34 PRINT "(BACK ARROW, CL>"; :GET A$: IF A$<>"" THEN PRINT#S. A$; 

< IF <PEEK<CB)ANDTS> THEN GET#5,.A$:PRINT " (CL) "JA$i :X=PEEKCPB) 
54 GOTO 34 


2006 MAIN JSR CGETL 3 CHARACTER FROM KEYBOARD 

2616 BNE MAINI@ 

2620 PHA 3 IF SO SAYE CHARACTER ON STACK 
2630 LDX #65 3 SET OUTPUT TO MODEM 
2046 JSR COOUT 

26568 PLA j PULL CHARACTER OFF STACK 
2068 JSR QUTCH ; OUTPUT TO MODEM 

2676 JSR CLSCHN 3 RESTORE NORMAL I/O 

20386 MAINIG BIT CRB + IS SRQ INTERRUPT FLAG SET 
26968 BPL MAIN 3 IF NOT, NOTHING TO INPUT 

2186 LDX #685 3 ELSE SET INPUT CHANNEL TO MODEM 
2114 JSR COIN 

2126 JSR INCHR 3 GET WAITING CHARACTER 

2136 JSR OUTCH 3 OUTPUT TO SCREEN 

2146 JSR CLSCHN 3 RESTORE NORMAL I/O 

2156 LDA PORTB 3 CLEAR SR@Q INTERRUPT FLAG 

2166 JMP MAIN 3 AND REPEAT 

1968 LDA #<NEWIR@ j POINT AT NEW ROUTINE 

1616 LDY #>NEWIRG 

1620 SEI 3 DISABLE INTERRUPTS 

1438 STA IRQYEC 3 ALTER INTERRUPT VECTOR 

1846 STY IRQVEC+1 
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} ENABLE NEW INTERRUPTS 


2068 JSR CHKIRG 3 CHECK FOR INPUT FROM MODEM 
2018 JMP IR@SUB 3 THEN DO NORMAL INTERRUPT 

3806 CHKIRG BIT CRB + IS SRQ INTERRUPT FLAG SET 

3816 BPL CIRQ10 3 IF NOT. EXIT WITH N FLAG CLEAR 
3628 LDX #$05 3 ELSE SET INPUT CHANNEL TO MODEM 
3636 JSR COIN 

38408 JSR INCHR i GET WAITING CHARACTER 

3458 LDX BUFPTR 3 X=POINTER INTO BUFFER 

3668 STA BUFFER. ; STORE CHARACTER IN BUFFER 

3876 JSR CLSCHN 3 RESTORE NORMAL I/O 

3886 INC BUFPTR 3 INCREMENT POINTER INTO BUFFER 
3696 LDA PORTB + CLEAR SRQ@ FLAG, SET N FLAG 


3166 CIRGI1G RTS AND EXIT 


1566 LDA ##3D 
1516 STA CRB 


2686 NEWIRQ JSR CHKIRQ 3} WAS INTERRUPT CAUSED BY SRQ 

2616 BMI NIRQ1@ 3} IF SO, N FLAG WILL BE SET 

2626 JMP IRQSUB 3 IF NOT. NORMAL CLOCKED INTERRUPT 
2636 NIRQ1@ JMP IRQEND 3 ELSE RESTORE REGS AND RTI 


6a0a PHA 3 SAYE CHAR ON STACK 

6614 LDX #68 

6626 SEI 3 DISABLE INTERRUPTS 

6638 JSR COOUT 3 SET OUTPUT TO CHANNEL 8 
6646 PLA 3 PULL CHARACTER OFF STACK 
6858 JSR OUTCH 3 OUTPUT TO MODEN 

6a6a JSR CLSCHN 3 RESTORE NORMAL I/O 

6076 JSR CHKSR@ 3 CHECK FOR INPUT FROM MODEM 
6686 cLI 3 RE-ENABLE INTERRUPTS 


This program can be expanded to allow a lot 
more processing to take place within the loop 
without any loss of characters from the modem, 
making it possible to add a cursor, control key, er- 
ror checking, disk output, and even word- 
processor-style screen tricks like bidirectional 
scrolling. A very simple complete program of this 
variety is given as an appendix to this article; next 
month more sophisticated varieties are available 
from Ariadne Software Ltd. at 56 Chandos Road, 
London NW2, tel 01-452 4390. 


Using the interrupts 

Although the approach discussed above can be 
taken a long way, it is still not adequate for all pur- 
poses. For example, a well error protected micro- 
to-mainframe communication system, as 
developed for PETNET, uses a packet-based pro- 
tocol. Suppose a long program file is to be upload- 
ed from a PET to the host mainframe. The pro- 
gram is split into packets of up to 64 bytes, con- 
sisting of up to 57 data bytes and seven control 
bytes. The latter comprise start and end of packet 
bytes, a packet type identifier, the number of 
characters, a sequence number, and a CRC 
check-word. At the start of transmission, four 
‘slots’ in the PET are filled with the first four 
packets in sequence, which are then transmitted 
to the mainframe. 

When the mainframe receives a packet whose 
CRC checks out, it sends back to the PET a 
special ACK-type packet, also protected by a 
CRC, identifying the sequence number of the 
correctly-received packet. 

Having sent four packets, the PET checks if the 
first of them has been acknowledged by the main- 
frame. If so, it starts sending the next packet in 
sequence; otherwise it starts retransmitting. This 
process continues until all packets have been 
acknowledged by the mainframe. 

To implement this sort of system, the PET 
needs to deal with constructing output data 
packets with CRCs and sending them to the 
modem, while simultaneously watching for and 
performing CRC checks on ACK packets coming 
the other way. The exact time of arrival of these 
packets is unpredictable, as they are subject to a 
varying delay due to jobs being ‘swapped’ in and 
out of a timesharing mainframe. 

The best way of doing this is to use the inter- 
rupts, so that the modem can be dealt with in the 
background of the main program. Very clever 
people (a big hello to Harry Broomhall) do both in- 
put and output to the modem as background pro- 
cesses using the interrupts. For our purposes 
however it was sufficient to deal with only input 
of ACK packets in the background, while the main 
program looks after constructing and sending the 
data packets. 

There are two ways of doing this, which are 
very similar in principle. They both involve the use 
of a buffer, into which characters are put by the 
interrupt routines for later retrieval by the main 
code. A number of complications arise, due to the 
necessity of checking that buffer capacity is not 
exceeded, and that the interrupt-code and main 
program routines do not contend over the use of 
buffer pointers etc. These are not included in the 
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example code following, the object again being to 
demonstrate principles rather than to present 
complete programs. 

The first method of using the interrupts for 
background input from the modem is to use the 
normal PET clocked interrupts, adding a small ex- 
tra bit of code to check for input from the modem, 
before going on to perform the usual functions of 
updating the clock, scanning the keyboard etc. 
This can be done by altering the interrupt vector 
on page zero in locations $90 to $91 (IRQVEC 
and IRQVC + 1). 


The new interrupts can call a routine to check 
for input from the modem, then jump to the nor- 
mal interrupt routine at $E455 (IROSUB). 


The routine to check for modem input can be 
roughly as follows: 


The second method is a slight variation on this, 
and involves setting bit zero of control register b 
of PIA = 2, so that SRO going low actually 
causes a processor interrupt: 


The code to change the interrupt vector and the 
CHKIRQ subroutine are the same as before; the 
routine NEWIRQ subroutine are the same as 
before; the routine NEWIRO however now wants 
to call CHKIRO to see if the interrupt came from 
the modem, then either perform normal clock in- 
terrupts or restore registers and RT! (IRQWND). 


With a 300-baud modem, there is nothing real- 
ly to choose between the two approaches, 
though the first is probably simpler. (If the modem 
was a lot faster, characters would come in faster 
than the clocked interrupts (60 per second), and 
the second approach would have to be taken.) 

By using these routines, input from the modem 
becomes a background operation. The only thing 
to be careful about is to make sure that the inter- 
rupt routines don’t try and get characters from 
the modem while the main code is_ half-way 
through an IEEE output sequence. This can be 
done by disabling interrupts while outputting on 
the IEEE (eg to modem or disk drive), then calling 
CHKSRO immediately to check if any characters 
came in while the output was in progress. For ex- 
ample, to output a character to channel 8, which 
could be a disk file: 


These techniques are far from the last word in 
modem processing; one can do better by handling 
i/o at a lower level, and altering the normal PET 
IEEE routines. However, by using them some 
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quite sophisticated communication software can 
be written — | wish you the very best of luck. 


ACK packets 

Harry Broomhall of Heronview corrected a 
number of misconceptions about the 8010 (those 
remaining are entirely our responsibility). 

Nigel Bufton and Jon Rutter of ADP Network 
Services taught us how the big boys handle data 
transmission. 

Nick Green of Commodore got us involved in 
the whole business in the first place. 


Appendix 

Next month we show an assembler listing and 
hex dump for a complete ‘glass teletype’ modem 
program, with cursor, control key, escape and 
delete keys. As well as some of the techniques 
discussed above, the program illustrates inter- 
conversion between true ASCII, the variant 
PETSCII, and PET screen character codes. 





‘The Increase in Computer Crime Is Frightening.’ 


HI-RESOLUTION GRAPHICS 


A high resolution graphics board that gives a 64,000 dot (320 x 200) resolu- 
tion. Versions available for any dynamic ram Pet, BASIC 2,3,4, FAT40 & 80 
columns. No soldering or track cutting required, supplied complete with fast 
GRAPHIX software in ROM and full fitting & operating instructions. £149.00 


SUPER ROM-SELECTOR 


A high quality printed circuit board giving 64K of utility ROM space, software 
selectable!!! Allows |6x4K ROMs/EPROMs to reside in the expansion area of 
your PET, One ‘POKE’ enables any two ROMs at a time. Suitable for bank- 
switched software. £75.00 


PET UPGRADES 


WHILE-U-WAIT service! (Dynamic ram pets only). 
Memory expansion: 


40 column (12in VDU only) to 80 column conversion. 

40-80 column 

40-80 column switchable (two machines in One!)........csescceserereseeeees £105.00 
Full keyboard functions: i.e. TAB, ESC, REPEAT, SCROLL up/down, define 
WINDOW, lowercase/graphics mode and DELETE from/to cursor. All 
available in direct or program mode. 


REPAIRS AND SERVICING 


Fast and efficient repairs to all Commodore computers at reasonable prices. 
WHILE-U-WAIT service whenever possible. 


Please add VAT to the prices shown at the current rate. 
Telephone Mick Bignell for more details at: 


MICROSERVE 

7 Clydesdale Close, 
Borehamwood, Herts. WD6 2SD. 
Tel: 01-953 8385 


PCS 


Program Aids 

UN—NEW: If you typed NEW and lost your program without saving, UN-NEW will let you recover it. Price: 
£10.00. 

DUMP: You just touch a single key and the entire screen is copied onto the printer. This can happen even 
while running a program. Price: £10.00. 

DISK UN-NEW 8050: Recover any scratched program on your 8050. Price: £12.00. 

TINY BASIC COMPILER: A true compiler that turns your BASIC programis into fast machine code programs. 
For old/new/e.0 Roms. Price: £30.00. 

VIGIL: Exciting, new games interactive language. Easy to learn with 60+ powerful commands. For all 
PETs. Also available for VIC. Price: £30.00. 


Hardware 

CB2-SOUNDBOX: de luxe Soundbox for Arcade games with programming manual. Price: £17.50. 

TV INTERFACE: for both 40 and 80 col. PETs. Video out RF out for connection to home TV. Price: 
£35.00. 

TELEPHONE DIALLER: use your PET to dial your telephone. Stores 40 names and ‘phone numbers. More 
than one screen page of names and numbers possible. 40 names and numbers per page. Price: £25.00. 
D100: single board analogue to digital converter with on-board supply, 4-bit output port and drive pro- 
gram. Price: £55.00. 

AD200: 8-channel analogue to digital converter assembled and ready for use. Comes complete with drive 
Program and well documented handbook. Features include 8-bit output port, precision reference voltage, 
and many others. Price: £150.00. 

PET ROM WRITER: now you can program DOS and other utilities into 2K and 4K EPROMs. Price: £55.00. 


Books 

THE DR. WATSON BOOK OF ASSEMBLY LANGUAGE PROGRAMMING for all PETs. Price: £10.00. 
THE DR. WATSON BOOK OF ASSEMBLY LANGUAGE PROGRAMMING for VIC. Includes Assembler 
Cassette. Price: £17.00. 

PET MACHINE LANGUAGE GUIDE. Price: £8.00. 

PET REVEALED: Price: £10.00. 

LIBRARY OF PET SUBROUTINES. Price: £10.00. 

THE VIC REVEALED. Price: £10.00. 


VIC Programs 

BIG FOUR: 4 games on one cassette: Price £5.00. (3.5K). 

STARTREK: fighting in the galaxy. Price: £5.00. (3K & 8K). 

DATABASE: Retrieval system. Price: £7.00. (8K & above). 

HI-RES CHARACTER GENERATOR: Price: £7.00. (8K & above). 

THE CYBER MEN: Try to destroy them. Price: £7.00. (3.5K), (machine code). 
VIC DEFENDER: Destroy fighter ships. Price £7.00. (3.5L), (machine code). 


Please add 15% VAT (except books) + £0.50 p&p (£1.50 hardware only) on all orders. 
Please add £1.50 if you require Programming Aids on disk. Specify 3040/4040 or 80 Format. 
We also stock floppy disks, printer ribbons & cassettes. Send s.a.e. for catalogue. 


PEDRO COMPUTER SERVICES 


4 Cowcross Street, London EC1. Telephone: 01-250 1481. 








BackPack — A standby power supply that fits 
internally within the PET and Disk Drive. It gives 
at least 15 minutes to close the system down in 
an orderly fashion. 


£140 + VAT 





The Card Reader is how avaliable 
with an optical read head, which can 
also read punch cards. 


from £650 + VAT 





The Sequential Switching Unit for 
powering up and down various 


devices in the correct sequence. 
£75 + VAT 





The TNW 1000 — an output only addressable 
serial interface IEEE to RS232C. 
£110 + VAT 





Commodore Computing 27 


Interfacing 
Pet Talker 


The project was originated from an idea by the ‘A’ 
level group in the school’s 6th Form. 

We have so far made it possible for two CBM 
4032’s to talk to each other using a control key. 
(The OFF/RVS key). 

Within this documentation, we have included a 
hardcopy of the program (which must be in both 
machines), to enable you to set up your own 
‘mini-network’. 

To implement the software however you will 
need to build your own USER-PORT connector. 
We constructed our own as we do not know of 
any such connector available on the market. We 
used standard Commodore supplied plug-in pins 
and soldered the wires to these pins. Enclosed is a 
diagram which shows how to connect the wire. 


Hardware requirements 
2 CBM 4032 MICROS 


1 USER PORT CONNECTOR 


Software requirements 
Each CBM must have the program in memory. 


Acknowledgements 

The software and hardware were designed in 
December 1981 at the Pingle School, Swadlin- 
cote by the following: — 
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Neil Dutton 
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Adrian Lakin 

Computer Studies Dept. the Pringle School, 
Swadlincote, Burton-on-Trent, Staffs DE11 OOA. 
WITH VERY SPECIAL THANKS TO MR. BARRY 
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User’s Guide 

1. Load the program in the normal way (tape or 
disk) into both machines. 

2. Connect the connector to the User-Port as 
described in that section of the documentation. 
3. RUN the program on both machines. 

4. There will be no response until one of the 
users presses the control key i.e. the OFF/RVS 
key. 

5. Pressing this key will set that machine into 
“TALK-MODE’. The other machine automatically 
becomes a ‘LISTENER’. 

6. The ‘TALKER’ may now send his message 
down the 8-bit bus to the ‘LISTENER’. 

7. During this time the ‘LISTENER’ must not 
press the control key otherwise a collision will oc- 
cur on the bus!! 

8. To get out of ‘TALK-MODE’, press the 
OFF/RVS key again. This resets both machines. 
9. If the ‘LISTENER’ now wishes to talk he simp- 
ly presses the OFF/RVS key and he will become 
the ‘TALKER’. 

10. Simple really, isn’t it? 


The Connector 
Requirements (not very expensive) 
1 plug-pins (TEKA TP3 121 S04) 
18-bit parallel data bus (a sample is included) 
2 Handshake lines which consist of two wires 
which connect to the CA1/CB2/GROUND pins 
(depending on their position). 
How to construct it 
1. Connect the 8-bit data bus to the middle eight 
pins on the lower pins of the plug-pins on each 
plug-pin by soldering preferably. 

Note: The bus must be twisted so as the wires 
connect as shown (e.g. A to A,B to B etc.) 
2. Connect the ‘Handshake lines’ which consist 
of two wires each to the outer pins of the plug- 
pins. 

Note: Ground wire connects to end pin in both 
cases, and the CA1 line must connect to the CB2 
line of the other machine. (See diagram). 
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Pet Talker Li 


DA=534593 : REM DATA DIRECTION REG. 


Whe & 


A ee 


REM PORT A WITH HANDSHAK ING 


aomc 
Pfc,» oe 
eu ay 
il 
on 
Ao 
an 
ba | 


14@ AK=59467 © REM AUNILLARY CONTROL REG. 
160 PR=59468 : REM PERIPHERAL CONTROL REG. 
180 IR=S3469 ° REM INTERRUPT REG. 

200 IE=5947G : REM INTERRUPT ENABLE REG. 


226 POKE PR. (PEEK<PR>AND254> 
238 POKE Ax. (PEEK CAXAND227 > 
244 POKE PR, “PEEK<(PR>0R224> 
25 POKE IE.2 

266 POKE AX. (PEEK CAXOR1> 
274 POKE DA.@ 

296 POKE IA.2 

296 GET At 


316 IF A$="" THEN 37a 
338 IF ASCCAS=18 THEN GOSUB 440 


360 ASPEEK(PAD 
370 IF PEEKCIADAND2 = @ THEN 400 
380 IF PEEK¢PA? = @ THEN GOSUB 1920 


400 GOTO 290 


449 REM DEDICATED TALKER 
460 REM GRAB BUS 

480 POKE DA, 255 

SQ@ POKE PA.O 


S26 POKE PR, CPEEKCPRIORZ24 > 
S38 POKE PR, (PEEKCPROANDZ23> 


558 T=TI 

570 C=PEEK¢IADAND2 

599 IF (C<>2) AND <<TI-T><12@) THEN 573 
619 IF (TI-1)>=120 THEN GOTO 678 

63@ REM PROCESS TALK 


656 GOSUB 7aa 
666 RETURN 
676 PRINT "COLLISION" 
638 POKE DA.@ 
636 RETURN 
738 REM HeRAeEAEEESE IORI 
PLGA REM esas EES AEA A 
7G REM seve ARAM ta a 
M 


746 REM WAIT FOR KEY TO BE PRESSED. 
PEG REM eae aS AE 


738 AS="":GETA: IFA$=""THEN 78a 
798 IF ASCCA$2=18 THEN AF=CHRS¢12:GOTO 37a 
886 PRINT Ags; 
316 ob HEARERS HAT ARAR ATR AAT 
REM 


$34 REM PLACE DATA ONTO DATA BUS 
REM 
SSG RED aa AIEEE AAA HEE EA 


878 POKE 59457, CASCCAF)> 
886 POKE 59469, (PEEK(¢S9469 0R224) 
398 POKE 59468, (PEEKCS9468>AND223> 


366 LET C=PEEK(59469) 

976 LET C=C AND 2 

386 IF C=6 THEN 968 

996 IF ASCCA$><>1 THEN 78a 
168G POKE DA. 

1614 RETURN 

1820 REM LISTENER 
1636 : 

1646 POKE 59459.4 

1956 LET C=PEEK«59469> 


@ LET C=C AND 2 
6 IF C=6 THEN 1656 


LET D=PEEK (59457 > 
IF D=1 THEN 116 


PRINT CHRS(A); 


GB POKE 59468. (PEEK (S946 )0R224> 


POKE 53468, <PEEK (53468 )AND223) 
IF I<>1 THEN 1656 


B® RETURN 
1 633A SGL¥II ORG $8334 
: 334A INDEXL * $8062 
: O33A INDEXH * INDEXL -@4 
: 833A ACCELL * INDEXL -@2 
: @33A ACCELH * INDEXL -@3 
: 633A SLOW * INDEXL +84 
: 833A PIA * $E840 
: 833A PORTA * PIA +OF 
: 833A IER * PIA +E 
: 833A ACR * PIA +08 
: 633A PCR * PIA +6C 
833A TCL * PIA +06 
: 833A TCH * PIA +85 
: 833A IFR * PIA +@D 
833A DORA * PIA +83 
833A FLPINT * $DO9A 
: 833A TIME * $7FFF 
: @33A 28 9A 06 JSR = FLPINT sCONV.TO INTERGER 
+ @33D 78 SEI 
: @33E A@ FF LDOYIM $FF 
: 0348 8C 43 E8 STY  DDRA 
: 0343 AI a LDAIN $80 
: @34S 8D 4F EB STA PORTA +PTA O/P’S LOW 
: 8348 AY CO LDAIM $C@ 
: @34A 8S 63 STAZ SLOW 
@34C AS 64 LDAZ INDEXH 
: @34E 40 46 BPL POS 5+VE INDEX 
8358 AP 88 LOAIM $68 
@352 8D 4F E8 STA PORTA ‘SET -VE 
: 8355 98 TYA 
: 8356 4S 62 EORZ INDEXL 
: 8358 48 CLC 
389 69 84 ADCIM $64 
@35B 85 62 STAZ INDEXL sCOMP.& +4 
: 6350 98 TYA 
: @35E 45 64 EORZ INDEXH 
: @366 96 62 BCC SKIP 
: 8362 69 68 ADCIN $80 sADD CARRY 
: 0364 8S 64 SKIP STAZ INDEXH 


: 8366 AS 62 POS  LDAZ INDEXL 

: 9368 8S 48 STAZ ACCELL 

: B36A AS 64 LDAZ INDEXH 

: G36C 85 SF STAZ ACCELH 

: G36E 0G OF BNE LLP  — SLARGE INDEX 

: 0378 AS 62 LDAZ INDEXL 

: 0372 DB a3 BNE CONT ‘NOT ZERO 

: 0374 4C DE @3 IMP FINISH 

: 8377 C9 5G = CONT = CPIM $50 

: 8379 BB 4 BCS LLP 386 STEP INDEX 

: G37B A9 46 LDAIN $48 

: @37D 85 63 STAZ SLOW 4’S’ ONLY 

: G37F AD 4C E8 LLP LDA PCR 

: G382 89 a4 ORAIN $04 

: 0384 8D 4C £8 STA PCR CA‘ +VE EDGE 

: @387 AD 4B £8 LDA. ACR 

: G38A 29 3F ANDI $3F 

: @38C 8D 48 £8 STA ACR sMONO TIMER 

: G3BF AD FS a3 LDA TL 

: @392 8D 44 Ee STA TCL 

: @39S AD Fé @3 LOA TH 

: 6398 BD 45 EB STA TCH 

: @39B AD 4F EB LDA PORTA 

: G39E BS 63 ORAZ SLOW 

: G3AG 8D 4F £8 STA PORTA START INDEX 

+ INDEXING 

: G3A3 AS B2 START LDAIN $02 

: @3AS BD 4D EB STA IFR 

: G3AB 2C 4D EB LP BIT IFR 

: G3AB FG FB BEO LP TTEST PULSE 

: @3AD Ab 62 LDXZ INDEXL 

: B3AF DG 42 BNE NOCRY +’XL’ NOT ZERO 

: G3B4 Cé 64 DECZ INDEXH ;DEC.’XH’ 

: @3B3 Cé 62 = NOCRY DECZ INDEXL sDEC. ’XL’ 

: BBS DB a4 BNE NOTZ 

: @3B7 AS 64 LDAZ INDEXH 

: B3B9 FG 23 BEQ FINISH sALL OVER 
@3BB AD 4F FB NOTZ LDA PORTA 

: B3BE 29 8G ANDIM $89 

: @3CB 48-£4 BPL START +’F’ OFF 

: G3C2 A 40 LDAIM $48 
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Interfacing 


88418: @3C4 
4826: @3C7 
@838: @3C9 
9848: @3CC 
@8SB: G3CE 
6868: 83D4 
8878: @3D3 
G88: @3D6 
4898: 6308 
8960: @3DB 


094@: G3DE 
8926: @3E4 
8930: @3E3 
8946: @3E6 
Q950: G3E7 


8468: 1867 


78 





49 


9 
Cc 


19 


5S 49 


Ee 


STONE JSR 
NFAST LDA 


FINISH LDA 


IFR 
STONE 
DECACC 
NFAST 
DECACC 
START 
PORTA 
$7F 
PORTA 
START 


PORTA 
$3F 
PORTA 


sACC.TIME OVER 
SDEC.ACCEL 


°F! OFF 


3’F8S’ OFF 


sDEC. 2 BYTES ACC. 


DECACC LDXZ 
BNE 
DECZ 
NC DECZ 
BNE 
LDAZ 
NZ RTS 
TL = 
TH = 
OBL*II ORG 
SLOW # 
ACCXH * 
ACCXL * 
INDXH * 
INDXL * 
ACCYH # 
ACCYL * 
INDYH * 
INDYL * 
PIA © 
PORTA * 
IER * 
ACR * 
PCR * 
TCL * 
TCH * 
IFR . 
DDRA * 
TIRE. -# 
SEI 
LOYIN 
STY 
LOAIN 
STA 
LOAZ 
ORAIN 
STAZ 
LDA 
STAZ 
STAZ 
LDA 
STAZ 
STAZ 
BNE 
LDAZ 
BNE 
LDAZ 
ANDIM 
STAZ 
BNE 
CONT CMPIN 
bcs 
LDAZ 
ANDIM 
STAZ 
YIND LDA 
STAZ 
STAZ 
LDA 
STAZ 
STAZ 
BNE 
LDAZ 
BNE 
LDAZ 
ANDIM 
STAZ 
ANDIM 
BNE 
amp 
PL LDAZ 
PLS CMP IM 
BCS 
LDAZ 
ANDIM 
STAZ 
LLP LDA 
GRAIN 
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ACCELL 


$E848 


FINISH 
INDYL 
$50 
LLP 
SLOW 
SOF 
SLOW 
PCR 
$44 


/256 


+04 
+02 
+83 
+04 
+85 
+06 
+07 
+08 
+6F 
+E 
+08 
+0C 
+86 
+05 
+0D 
+83 


5PTA O/PS LOW 


sXeY FaS ON 


SLARGE INDEX 
SNOT @ INDEX 


3@ INDEX 


5>86 INDEX 


iNO FAST 


sNOT @ INDEX 


5X NOT @ 


sBOTH ZERO 


588 INDEX 


3NO FAST 
5CA4,CB4 + EDGE 


G478: 
688: 
C698: 
G70G: 
8748: 
9720: 
9736: 
&748: 
@7S56: 
8768: 
8778: 
8788: 
8798: 
6808: 
G84: 
8820: 
4824: 
930: 
9844: 
G8Se: 
866: 
8879: 
9886: 
9898: 
0906: 
994G: 
944: 
8926: 
8938: 
948: 
G95@: 
8968: 
8978: 
2998: 
4800: 
4020: 
4038: 
4G40: 
4@5@: 
1068: 
4G7G: 
4086: 


4B9R- 
449G: 
4448: 
4428: 
4438: 
444G: 
44SG: 
4454: 
44166: 
4478: 
4486: 
4490: 
4200: 
424G: 
4230: 
4248: 
4268: 
4276: 
4280: 
4290: 
4368: 
4340: 
4320: 
4330: 
4240: 
4358: 
4366: 
1378: 
4380: 
4398: 
1408: 
4440: 
4420: 
4430: 
4440: 
4458: 
4468: 
4470: 
4480: 
4490: 
4508: 
4548: 
4520: 
4530: 
4548: 
4558: 
4568: 
4876: 
4S88: 
4598: 
4688: 
4640: 
4628: 
4638: 
164G: 
4658: 


4869 
486C 
486F 
4874 
1874 
4877 
A874 
4870 
4880 
4883 
4885 


1888 
488A 
488D 
488F 
4892 
41894 
4897 
4899 
1898 
489E 
48AG 
48A3 
48AS 
48A7 
484A 
48AC 
48AE 
1886 
48B3 
48BS 
1888 
48BA 
488) 
48BF 
18C2 
4804 


4BE7 


ABCA 
48CC 


48CF 


4804 
4804 
48D6 
4808 
4808 
4800 
480F 
48£ 4 
48E4 
48£6 
48E9 
48E8 
48EE 
48FQ 
ABF3 
48F5 
48F8 


{8FB 
48FE 
1988 
1983 
1908S 
4907 


496A 
498D 
490F 
4942 
4948 
4946 


4947 
4949 
194B 
4940 
494F 
4924 
4923 


4924 
4925 
4926 
4927 


4928 2 


AD 


E8 
19 


STA PCR 
LDA ACR 
ANDIMN $3F 
STA ACR 
LDA oTL 
STA TCL 
LDA TH 
STA TCH 
LDA = PORTA 
ORAZ SLOW 
STA PORTA 
s INDEXING 
START LDAIM $42 
STA  IFR 
LP LDAIM $42 
L BIT IFR 
BEO OL 
LDA  IFR 
ANDIM $82 
BEG =Y 
STA  IFR 
LDXIM $04 
JSR  DECR 
BEG FINX 
LDXIM $82 
LDA = PORTA 
ANDIM $8@ 
BPL LP 
LDAIM $48 
BIT IFR 
BYS STONE 
JSR DECR 
BEG NFAST 
STONE JSR  ODECR 
BNE LP 
NFAST LDA PORTA 
ANDIM $7F 
STA PORTA 
INP OLP 
37’ INDEX 
Y LDAIM $4@ 
STA  IFR 
LDXIN $08 
JSR  DECR 
BE@ FINY 
LDXIM $66 
LDA PORTA 
ANDIM $26 
BEO LP 
LDAIM $40 
BIT IFR 
BYVS  SONE 
JSR -DECR 
BEG NF 
SONE JSR ODECR 
BNE LP 
NF LDA PORTA 
ANDIM $DF 
STA PORTA 
amp OP 
SEND OF ’X’ 
FINX LDA PORTA 
ANDIM $3F 
STA PORTA 
TEST  ANDIM $F@ 
BEO FINISH 
amp LP 
SEND OF *Y’ 
FINY LDA PORTA 
ANDIM $CF 
STA PORTA 
IMP = TEST 
FINISH CLI 
RTS 
sDEC. 2 BYTES 
DECR LDAZX SLOW 
BNE NC 
DECZX SLOW 
NC DECZX SLOW 
BNE NZ 
LDAZX SLOW 
NZ RTS 
TL = TIME 
TH = TIME 
XL = Gg 
XH = g 
YL = ge 





SSTART INDEXING 


SPULSE 7 


3’Y’PULSE 


SDEC. ’xX’ 
5’X’ OVER 


SNO FAST 


sACC.OVER 
SDEC. ACC. 
SHALF WAY 
SNEXT 


SFAST OFF 


sDEC. ‘Y’ 
3’Y’ OVER 


INO FAST 


sACC. OVER 
sDEC. ACC. 
SHALF WAY 
SNEXT 

SFAST OFF 
SNEXT PULSE 


3/F/8'S’ OFF 


SBOTH OVER 


s°F'@’S’ OFF 
SALL OVER? 
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DEMONSTRATIONS AT 
YOUR PLACE 
We are able to demonstrate complete 3 A II Ls R 
busine 


88 systems at your site in our 


mobile demonstration unit (up to 4 
people at a time). 
Just phone for an appointment anytime. 
Epson MXSOFT — 80/132 Col. Friction/Tractor, 
Directional. 9x9 Head True Desee: —————— 
Riocs Col. 600ps Daisy . 


Write your data base 
applications programs in 
a fraction of the time 
usually required to do so. 


Microsystems introduce 
to PET owners the 
INTELLIVISION ; CODEWRITER, a superb 
inne Sone ate lng. Benin on program generator for 
wing ps pgs ruslak sa ase the 8000 series PET with 


dual disc drive unit. 


Screen layout, data entry 
cake SHOP validation, screen display 
idsavien! adits. WAS TOD! of user-defined error 
Open Mon-Fri. 9.90—5.30 messages, screen calcul- 

Sat. 9.30—5.00 g ations, searching by any 
eaprraiainsy field - all are child’s play 
to CODEWRITER 1. 
CODEWRITER DISC 2 
provides printed reports 
and menu generators. 


Codewriter 1 - £125 
Codewriter Disc 2 - £65 


Dealer enquiries welcome. 





Pamper your PET 
promptly, write or’phone 
Microsystems Ltd., 
Summerfield House, 
Vale, Guernsey, C.1. 
Tel. (0481) 47377. 






ADVENT 

Will run on any 32K PET 

Available on cassette or 

ONLY £10.00 + VAT (p 

Please specify whether e or disk required. 


SUPER ADVENTURE 

Disk based only. 

Will run on a 4032 or 2 with a 4040 or 8050 
disk drive 

ONLY £25.00 + VA e) 

Please specify Co: e when ordering. 


Please send cheque. 
IMPETUS COMPUT EMS 
Freepost Hendon, London NW4 1YB 





NWN NNN NNN NNN YN NYY YIN YD WI! =. 
Nwvyvvnnvnnvnnnnvnvnvnnvnnvnvnvve ty ND AD RD OD eS SD as 
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Sound and Vision 


Another Voice for the VIC-20 
Normally, your VIC has 4 musical voices... 
three music registers and a white noise register. 
But by connecting a small amplifier to the User 
Port, and doing a little programming, you can get 
another musical voice. 

The User Port on the VIC is very similar to the 
PET User Port. This makes it easy to adapt some 
of the PETs music methods to the VIC-20. 


Background — Adding Sound to Older PET/CBMs 
Before Commodore introduced the CBM 8032 
with a built-in speaker, most PET/CBM users had 
to develop their own means of getting their com- 
puters to squeak, hum, whistle and sing. They 
came up with the idea of using the User Port to 
send square waves through an_ external 
amplifier/speaker combination. The shift register 
could be programmed through BASIC, giving a 
wide variety of squeals, pops, sirens, etc. 


Theory 

Most music is made up of square waves of dif- 
ferent amplitudes and frequencies. One of the 
functions of the 6522 chip is to generate square 
waves through the CB2 line. If we connect the 
CB2 line to a speaker, we will be able to hear the 
square waves generated by the VIC. 

NOTE: Connecting a speaker directly to CB2 may 
damage your VIC and void your warranty. You 
must connect the speaker through an amplifier to 
protect the VIC. 


BASIC Program Steps 
1. Set the 6522 shift register to free running 
mode by typing: 
POKE 37147, 16 
2. Set the shift rate by typing: 
POKE 37144, C 
. . . where C is an integer from O to 255. C is the 
note to be played. 
3. Load the shift register by typing: 
POKE 37146, D 
... Where D = 15, 51 or 85 for a true square 
wave. This step also sets the octave for the note. 
This step must be done last, since as soon as it 
is set, the VIC starts generating the square 
waves. 
The frequency of the square wave can be found 
by the following formula: 


FREQ = _50000 Hz 
(C+2) *(D1) where D1l=8 when D=15 
D1=4 when D=51 


Dl=2 when D=85 
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When you're in this mode, the VIC will not read 
or write to cassette. To restore normal operation, 
just type: 

POKE 37147, 0 
Here are some pre-calculated values for C: 


= 251 B = 124 
C = 237 cl = 4117 
C# = 224 Cl# = 111 
D = 211 Dl = 104 
D# = 199 Dl# = 99 
E = 188 E}) i293 
Ee 3a Fl = 88 
F# = 167 Fl# = 83 
G = 157 Gl = 78 
G# = 149 Gl# = 73 
A = 140 Al = 69 


The following short program demonstrates 
music using this method. By hitting a letter, a 
note will be played. 


10 PRINT "MUSIC USING CB2" 

20 REM A TO G IS ONE OCTAVE, SHIFT A TO G IS ANOTHER 
30 PRINT “HIT + TO GO UP AN OCTAVE, - TO GO DOWN" 
40 PRINT "(DN] USE ! TO EXIT." 

50 POKE 37147, 16 

60 DIM A(14) 

70 FOR I=1 TO 14 

80 READ A(I) 

90 NEXT 

100 DATA 124, 117, 104, 93, 88, 78, 69 

110 DATA 251, 237, 211, 188, 177, 157, 140 

200 GET A$ : IF A$="" THEN 200 

210 IF A$="!" THEN POKE 37147, 0 : END 

220 IF A$="+" THEN SF=SF-(SF<2) : GOTO 200 

230 IF A$="-" THEN SF=SF+(SF>0) : GOTO 200 

240 A=ASC(AS)-64+(ASC(AS) >192) *121 

250 IF A>14 OR A<l THEN 200 

260 POKE 37144, A(A) 

270 POKE 37146, -—(SF=0) *15-(SF=1) *51-(SF=2) *85 
280 GOTO 200 


BASIC Plotter 
This program will plot random lines using the 
“‘quarter-square’’ graphics characters. Although 
it’s a program in itself, it could easily be made into 
a subroutine. 

The program has been set up for 80 column 
screens (line 9040). Notice ‘’LL’’ (Line Length) is 
multiplied by 2 in lines 2020 & 2030? Since the 
quarter squares use up half a character space in 
the ‘’x’’ direction, an 80 column screen can have 
up to 160 ‘‘half-characters’’ horizontally. Similar- 
ly, on 25 lines there can be up to 50 half 
characters vertically (’‘y’’ direction). For 40 col- 
umn screens you'll need to change LL to 40; the 


second parameter remains the same since both 
have 25 lines. 

Line 2000 clears the window (if one set), the 
screen, and sets graphics mode (no gap between 
lines). If you like, substitute CHR$(142) with 
‘esc-rvs-N’ and stick it inside the quotes. 


2000 PRINT"(HM HM CLR] "CHR$(142) 
2010 GOSUB 9000 

2020 X1=INT(RND(TI) *LL*2) 
2030 X2=INT(RND(TI) *LL*2) 


: Y1=INT(RND(TI) *50) 
: Y2=INT(RND(TI) *50) 


2040 GOSUB 3000 : Yl=¥2 : Xl=X2 : GOTO 2030 
3000 REM *****e**e* PLOT A LINE *#*k kk EK 
3010 DX=X2-X%1 : DY=Y2-Y] : X=xXl : Y=Y1l 


3020 L=SOR(DX*DX+DY*DY) 

3030 XI=DX/L : YI=DY/L 

3040 GOSUB 8000 : IF (ABS(X2-X)<=ABS(XI)) AND 
(ABS(Y2-Y)<=ABS(YI)) THEN RETURN 

3050 X=X+XI : Y=Y+YI : GOTO 3040 

8000 REM *#*kk eR eKH PLOT X, Y¥ REKKKHERER 

8010 TX=INT(X+IR):TY=INT(Y+IR) :SO=AN(TX AND AM, TY AND AM) 

8020 P=BS+TX/DV-INT(TY/DV) *LL : POKE P, C(I(PEEK(P))OR SQ) 
: RETURN 

S0G0 REN St Feseeees SETUP 

9010 DIM C(15), 1(255), AM(1,1) 

9020 FOR I=0 TO 15 : READ C(I) 

9030 FOR I=0TOl : FOR J=OTO] : 

9040 LL=80 : BS=32768+24*LL : DV=2 : AM=l : IR=.5 

9050 DATA 32, 123, 108, 98, 126, 97, 127, 252, 

124, 255, 225, 254, 226, 236, 251, 160 
9060 RETURN 


: IF L=0 THEN 3040 


REKKKKKKEKEE 


: I(C(I))=I : NEXT 


AM(J,1I)=(J+1)*4tI : NEXTJ,I 


The subroutine at 9000 sets up an array with 
the 16 possible combinations of the quarter 
squares. BS is the base address of the POKE ad- 
dress of the bottom left corner of the screen. 

All plotting efforts are performed by the two 
subroutines at 3000 & 8000. Subroutine 3000 
plots a line from x1,y1 to x2,y2 by plotting 
several points (sub 8000). At the same time, 
subroutine 8000 must determine if there is 
already a point in a character space. If there is, 
the POKE information must not interfere with ex- 
isting points. 

Lines 200X are used for plot criteria genera- 
tion. The above merely plots random lines. For 
something more meaningful, try substituting with 
these: 


2020 Xl=0 : Yl=l 
2025 FOR X2=0 TO 159 
2030 Y2=EXP (X2/31.4) 


2040 GOSUB 3000 : Yl=¥2 : Xl=X2 : NEXT : END 

2020 N=6 : C=3.1415926/160 : X1=0 : Yl=25 

2025 FOR X2=0 TO 159 

2030 Y2=25 + 24 * SIN(X2 * N * C) 

2040 GOSUB 3000 : Yl=Y2 : Xl=X2 : NEXT : END 

2020 N=8 : C=3.1415926/160 : X1=0 : Y1=50 : DC=100 


2025 FOR X2=0 TO 159 
2030 Y2=25 + 24 * COS(X2 * N * C) * EXP(-X/DC) 
2040 GOSUB 3000 : Yl=¥2 : X1=X2 : NEXT : END 


The first plots an exponential curve. Notice the 
Y origin is set to 1 rather than O. This accounts for 
a slight inaccuracy as the plotter draws horizontal 
lines using the top ‘‘half-character’’ rather than 
the bottom half-character. This could be changed 
by modifying the character table at 9050. 

The second draws a SINE curve starting half 
way up the screen (Y1=25). The variable N 
represents the number of half cycles displayed 
(N=6 will draw 3 complete cycles). 

The last one is a decaying COSINE wave, origin 
at top-left (_Y1 = 50). For higher decay rates, use 
lower values in DC. 

Finally, with little effort you could use the plot- 
ter routine to draw axes for your functions. 
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‘What Do You Mean You Don't Know?’ 
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Programming Tips 


Programming 
Techniques 
and Tips 


This month we feature not one long article, but 
rather a collection of facts and figures that people 
have discovered along the way. We've tried, as 
far as possible, to cover the whole range of Com- 
modore machines, but in some cases we have to 
admit to failure. If anyone wishes to write in with 
the equivalent version for another machine, who 
are we to argue? (And we pay, as well. . .!). 


Fun with WAIT Statements — Henry Troup 
Most of us find that the WAIT statement is of 
limited use. Until recently, the only use | ever had 
found was:— 


WAIT 59411, 8, 8 


to wait for the cassette recorder play switch to be 
pressed. But | did later find some amusing and 
useful applications for WAIT. 

But first, a quick review. 

The statement WAIT I, J, K causes the value of 
location | to be exclusively OR’ed with K, and 
AND’ed with J. If the result is O, the process 
repeats until a non-zero result is obtained. Most 
often, tangible results are only obtained when 
values of J and K are powers of 2 (1, 2, 4, 8, 16, 
etc.) since WAIT is a bit testing function. 
However, testing for combinations of bits can 
also be useful. Be very careful though . . . during 
WAIT the STOP is not tested. If a WAIT command 
is entered, be careful to ensure that a non-zero 
will occur, or else! 

Obviously, most memory locations will be-of 
very little interest with respect to WAIT. The only 
locations which are of interest in fact, are those 
which are affected by external events. There are 
two sets of these: the keyboard/cassette/user 
port/IEEE locations in E-page, and a few in zero 
page. It’s the zero page locations that we will 
consider. 


GET Loops 
The classic GET loop is: — 


10 GET A$ : IF A$ = *’”’ THEN 10 

which loops until a non-null input is received. The 
same affect can be obtained by WAITing for the 
keyboard buffer pointer: — 
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10 WAIT 157, 127 : GET A$ 


This waits until the keyboard buffer count 
(decimal 158 for BASIC 2 and 4, 525 for BASIC 
1, 198 on the VIC) is non-zero. It’s a little harder 
to understand, but shorter and probably slightly 
faster. For experimentation, try replacing the GET 
command with INPUT, and the 127 with 2, 4 and 
8. 


WAI|lTing for a key 

Very often a GET loop is used on a ‘Push any key 
to continue’ basis. One interesting alternative is 
to use:— 


WAIT 152,1 


This waits for the shift key to be pressed (516 on 
BASIC 1, 657 on the VIC). The advantage of this 
is that nothing is put into the keyboard buffer, so 
you don’t have to clear it first. 

Or, if you want to have fun, try experimenting 
with WAITing for location 151 — key held down 
(515 on BASIC 1, 197 on the VIC). WAIT 151, 
127, 255 will wait for any key. Specific keys are 
harder to WAIT for, since WAIT will only wait on 
one bit at a time. Remember that we’re talking 
about undecoded keyboard values here. 


WAITing for the Clock 

The real time clock occupies locations 141-143 
(512-514 on BASIC 1, 160-162 on the VIC) in 
zero page. WAITing for one particular bit in the 
clock to change state gives an interesting delay 
effect. For example, WAIT 142, 1, 1 will wait for 
the rightmost bit of the second byte: This bit 
chages state every 256th jiffy, or slightly over 4 
seconds. WAIT 143, 1, 1 will wait till the start of 
the next jiffy. 

While some of these are not particularly useful, 
playing with the WAIT statement is quite a bit of 
fun. If anyone finds any more useful or interesting 
locations, we'll be WAITing to hear from you. 


Screen Loading 

All you need is a ‘‘screen-set-up’’ routine to 
“‘draw’’ your screen out, and this program will 
store it on disk: — 







196 REM SCREEN SAVER 
ii "SCREEN NAME, FP. WW" 
HREC1 239 5 


IF PEEK (S6803> = 160 THEN = 34767 GOTO14a 


EM 
A3) = 194 THEN SS = 76aa EN = 8136 
0 EN 
t {PEEK G39 3 


Line 125 sets the screen start address for the 
PETs, and 130 sets the screen end address for 
40 or 80 column machines. Line 135 sets start 
and end for the standard VIC. SAVE this program 
and do a NEW. Now enter: — 


10 ON X GOTO 120 
100 PRINT ‘‘(clr)’’; 
110 X = 1: LOAD “‘O:SCREEN NAME”, 8 


RUN this and the old screen should pop back on 
the screen as fast as loading the same size pro- 
gram from disk. The cursor will remain in the 
home position, since nothing is actually printed. 
No pointers or variables are changed since it was 
a ‘‘dynamic load’’. But the loader program would 
RUN from the beginning, hence the ON X GOTO 
statement. This could be expanded to accom- 
modate more screen loads simply by adding more 
GOTO data to line 10, and setting X appropriately 
prior to the load. The screen saver program could 
also be modified to store only a portion of the 
screen. But don’t forget to change the load ad- 
dress in line 120, or else the files will always load 
back to screen starting at HOME. 

This way we have a means of producing anima- 
tion on your computer! 


Sys’em! 
Two useful SYS addresses to note: — 


SYS 64790 and SYS54386 


The first does a jump to warm start : like turning 
the machine off and on again, but without the 
power interruption. On the VIC it seems that 
almost any SYS call will produce the same result! 
The second is extremely handy when you want to 
send a machine language monitor memory dump 
to the printer, as the old faithful SYS 4 on BASIC 
4.0 machines cancels any CMD commands 
previously set up. 


Extra Linefeeds 

In BASIC 2.0, the PRINT= command always 
wanted to send a linefeed CHR$(10) after the 
carriage return CHR$(13). As a lot of disk users 
will know, this can be a pain! But not always... 
some printers that don’t automatically do a line 
advance require that linefeed character to be sent 
(e.g. LIST to printer), So when Commodore 
altered this for BASIC 4.0 a re-think was 
necessary. The engineers decided that logical file 
numbers greater than or equal to 128 would send 
the line feed, whilst numbers below would not. 
With PRINT = to the disk, you would usually opt 


to supress line feeds, while you could OPEN 128, 
4 to do double spacing, or follow that with CMD 
128 to LIST to a printer without a hardware line 
advance. 


Harmless Bugs 

It had to be Jim Butterfield! He’s discovered what 
could possibly be rated as the most insignificant 
bug in DOS. He found that after using APPEND = 
to add a small bit of data to a very small sequen- 
tial file, the block count was increased from 1 
block to 2. Now this isn’t possible, since the total 
amount of data involved was less than 60 bytes, 
which is nowhere near the 254 byte capacity of a 
block. The answer ! A Bug! It seems that DOS just 
assumes that the result of an append will increase 
any file size by at least one block. But the ‘blocks 
free’ count didn’t change, indicating that the disk 
hadn’t really used an extra block but simply in- 
cremented the block count that’s stored in the 
directory along with the filename. 

APPEN = ing large amounts of data won’t cause 
this to happen. Evidently it only happens when 
the result of the append do NOT warrant the use 
of an extra block. When extra blocks are required 
for the appended data, the DOS correctly in- 
crements the block count before updating the 
directory. 

The same bug may surface after a CONCAT of 
two files, depending, reasonably enough, on the 
size of the file being concatenated (i.e. the file 
that is added, not the file that is added to). Ap- 
parently the DOS uses the same routines to per- 
form this operation. 

The solution? Well, there isn’t one, and nor is 
one really necessary. Even a COLLECT won’t 
restore the proper block count, but at least this 
bug will cause absolutely no damage or side ef- 
fects to your disk! 


CONCATenating programs 

The preceding item brings to mind another ques- 
tion frequently posed, namely ‘‘Why will the 
CONCAT command work on two sequential files, 
but not on two programs?’’. The answer is that 
CONCAT will not join two program files because 
it CAN’T MERGE two programs. What if there 
were a line in each file that has the same line 
number? The disk was not designed to deal with 
this problem. 

However, you may say, ‘“| could make sure that 
all line numbers in the file to be concatenated are 
high than the line numbers in the first file’’. The 
problem is . . . that is not the problem! 

All PET/CBM/VIC program files end with three 
binary zeroes. This is so the LIST command 
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knows when to stop listing. GOTO and GOSUB 
also look for these zeroes when looking for a line. 
If the line was not found before encountering ‘OO 
0O 00’, an UNDEF’D STATEMENT ERROR oc- 
curs. If you could concatenate two program files, 
the three zeroes that belong to the first program 
reside in memory ahead of code that was con- 
catenated. LIST, GOTO and GOSUB would never 
look past this point. 

For those doing a lot of program merging, it 
might be an idea to consider acquiring one of the 
many. ‘toolkit’s on the market that include this 
function. 


Turning Sound Off 

If you break into a program using sound, and are 
being driven round the bend trying to work out 
how, or what, turns the sound off, here’s a simple 
answer (12’’ PETs only ‘though). Simply cursor 
right until you get to the point on the screen that 
sounds the bell, and voila! After the jingle, CB2 
sound is de-activated. 


Cassette Notes 

Jeff Kriss of Toronto has submitted the POKEs for 

turning the cassette motors on or off for BASIC 

4.0 machines, as these are different from before. 

You now need two POKEs to turn them off. 
Cassette =1 : OFF POKE 249, 52 

POKE 59411, 61 


ON POKE 249, 0 
Cassette 32 : OFF 


POKE 250, 52 
POKE 59465, 61 


ON POKE 250, O 


Another bit of tape information, this time from 
Ernest Blascke, also of Toronto. 

When loading a program or reading a data-file 
from tape, quite often | forget to press the 
cassette deck STOP button after the tape has 
stopped moving. This can result in dire conse- 
quences when, later in the program, a file is open- 
ed for writing on tape, and yet the cassette is still 
on PLAY rather than PLAY & RECORD. As a 
safeguard against this happening, include a line in 
your program as follows (if anyone finds out the 
values for the VIC, can you write and let us know, 
and we'll include them in a later edition): — 


10 IF (PEEK (59408) AND 16) = O THEN PRINT 
“STOP TAPE : WAIT 59408, 16 
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Anyone using two tape drives will need these two 
lines: — 


10 P9 = PEEK (241) : P8 = 59408 
20 IF PEEK (P8) AND 16 * P9) = O THEN PRINT 
STOP TAPE =’’;P9 : WAIT P8, 16 * P9 


This will eliminate any potential problems. 

The above is for BASIC 1.0 ROMs. For BASIC 2.0 
and 4.0 the 59408 location stays the same, but 
change the 241 in line 10 to a 212. 


Bits and Pieces 

In Midnight Software Gazette a POKE was 
published to suppress the question mark that 
follows an INPUT command prompt. Try this 
short program: — 


10 POKE 16, 1 (BASIC 2.0 : POKE 41, 1) 
20 INPUT “‘DATA”’;A$ 
30 PRINT A$ 


Note that line 20 prompts for ‘DATA’ with no ‘?’ 
following, but when you hit RETURN after typing 
some characters, line 30 prints this string on the 
same line. This is a residual affect of the POKE in 
line 10. You might be able to use this to your ad- 
vantage, but to get a line feed between lines 20 
and 30 you'll have to do an extra PRINT. Subse- 
quent INPUT commands will also have the ‘?’ 
suppressed. You can get this back with POKE 16, 
O. Thus the program now becomes: — 


10 POKE 16, 1 (BASIC 2.0 : POKE 14, 1) 
20 INPUT “‘DATA’’;A$ 

30 POKE 16, O (BASIC 2.0 : POKE 14, O) 
40 PRINT 

50 PRINT A$ 





The Ultimax/Vic 10/.. .! 


DO YOU PLOT 
GRAPHS? 


This is the affordable answer. The new Hewlett Packard 
7470A two pen graph plotter connects directly to your 
Commodore Pet (no interface required). 


For full graphic output of Graphs, Pie Charts, 
Histograms, Overhead Transparencies, also with full 
Digitising facilities. 


Supplied complete with cable, programming manual and 
sample program listing at: 


£999 + V.A.T. 
10 days approval against official orders. 
For further information or a demonstration contact: 
C.S.E. (Computers) 
12 Wokingham Road 


Reading, Berks. 
Tel: Reading (0734) 61492 


P.S. Also available for Apple. 





MICcCROfFacts 


The Hallmark of Good Software 


eSales and Purchases Ledgers *Multi Companies 










¢Open Item eStock 

¢ Invoicing ¢One set of Disks 
¢Nominal and VAT Ledgers ¢Simple to Operate 
eLarge Capacities ¢ Powerful 

¢ Multi Ledgers ¢Fully integrated 


MMS SOFTWARE LIMITED, 
Ketwell House, 

75-79 Tavistock Street, 
Bedford MK40 1BR. 

Tel. (0234) 40601 


Computer Systems , Telex 826311 
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Pet Fourier 
Transplants 


In part two of this two-part series on Fourier 
analysis and synthesis using the Commodore Pet 
computer and Basic, we look at how a waveform 
dissected using the program in Part One can be 
reconstituted, albeit imperfectly. 

In Part One we discussed the idea that any 
periodic waveform can be described as a series of 
sinewaves, each of whose frequencies is at an in- 
teger multiple of the fundamental. Tones contain- 
ing many harmonics tend to sound more in- 
teresting than those with only a few. 

Compare, for instance, the timbre of a flute, 

which is almost pure sinewave, with that of an 
oboe, in which the opening and closing of the 
reed produces a wide range of harmonics. It is a 
general rule that waveforms in which there is an 
abrupt change in level, such as a square wave, 
ramp or pulse train, tend to contain a greater pro- 
portion of harmonics at the higher frequencies 
than those in which the changes are gradual 
writes Nick Hampshire. 
That, then, is the effect of the reed snapping shut 
due to the back pressure in the body of the instru- 
ment. The length and volume of the instrument 
determines how the pressure builds-up and hence 
the frequency of the note we hear. The situation 
is complicated further by the general shape and 
design of the instrument which accentuates some 
of the harmonics while attenuating others, 
leading to distinctive ‘‘colourations’”’ in the final 
tone. 


Infinite range 

There is an infinite range of possible periodic 
waveforms, but three parameters describe com- 
pletely any one in terms of its harmonic sinusoidal 
content. First, the number of harmonics which 
constitute the wave form. A sine or cosine wave 
has only one harmonic, the fundamental. Most 
waveforms will be composed of an infinite series 
of harmonics. Fortunately, the low order ones 
usually contribute most to the final shape. 

Some wave-shapes contain a high proportion of 
their energy at the higher harmonics and they will 
suffer more distortion in passing through a limited 
bandwidth amplifier than a waveform whose har- 
monics trail-off quickly. 

Secondly, the relative amplitude of each har- 
monic is an essential factor in calculating the form 
of the result. Most ‘‘artificial’’ waveforms, such 
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as square, triangle, ramp and rectified sinewaves, 
will show a progressive reduction in effect of the 
higher harmonics. 

While the harmonics of a square wave drop off 
almost linearly, those for a triangle wave 
decrease according to square law. So the third 
harmonic of a square law — there is no second — 
will be 30 percent of the fundamental but only 11 
percent in the triangle. 

‘“‘Natural’’ waveforms, such as the human 
voice or musical instruments, seldom show a neat 
geometric shape to their harmonic series, but will 
be more interesting because of it. The third and 
final parameter is the phase angle of each har- 
monic. As each new harmonic is added to the cur- 
rent waveform, every point where two troughs or 
two peaks super-impose, the resulting waveform 
will be accentuated; where a trough and peak 
overlap, the result is diminished. 

So, for the synthesiser program one must first 
load into the memory the harmonic aplitude and 
phase angle of the first n harmonics, where n is 
sufficiently large to give a good approximation to 
the desired result. The next stage is successively 
to add each harmonic to the output waveform 
buffer (WV) until it is fully synthesised. 

At each step it is useful to be able to plot the 
resulting waveform on the Pet screen. Also, as an 
option, to print the part-synthesised result to a 
hard-copy printer via the IEEE port. As our main 
interest is to investigate audio waveforms, a fur- 
ther option allows the user to POKE the resultant 
waveforms into a buffer in the Pet memory and 
then to play it back through a suitable D-A con- 
verter and amplifier. 

At the end of the run the user has the option to 
print to the hard-copy device a list of the har- 
monic parameters and a bar chart showing their 
relative amplitudes. 


Primary aim 
As the primary aim of this program is to show the 
effects of filtering on a waveform, the user is ask- 
ed to enter a filter coefficient before each har- 
monic is added. If the filter coefficient is in the 
range zero to one, the harmonic is attenuated. If it 
is greater than one, it is accentuated or amplified. 

When either the harmonic amplitude or the filter 
coefficient is zero, the result contains none of 
that harmonic and the program invites the user to 
proceed immediately to the next harmonic in the 
series. To facilitate experimentation the user may 
synthesise a new waveform with different filter 
parameters using the same harmonic amplitudes 
and phase angles. 

Figures 1 to 4 show the system in action. There 


+ (SQUARE WAVE 
LOWER BOUND=" -9: 
UPPER LIMIT= 3} 






are two methods to obtain the raw data — 
amplitude and angle. The first is to use analysis 
program given in Part One. The second is to 
calculate it from the series formula, which for a 
square wave is: 


mM sin x sin 3x sin 5x ) 
et an 


The harmonic amplitudes are calculated easily 
as being one unit of the fundamental (sin x), one- 
third of this at the third harmonic (sin 3x), one- 
fifth at the fifth, and so on. If we take the 
amplitude of the fundamental as 100, then it will 
be 33:3 for the third, 20 for the fifth. 

The sample contains up to the 29th harmonic 
(3-448), as shown in table 1. It is easy to 
calculate any amplitude with this method (99th 
= 1-01). 

Phase angles are not so obvious from the series 
formula but they are all the same for a square 
wave, and the waveform is synthesised with all 
phase angles set to zero. 


Figure 1 shows the fundamental frequency. It 
is, of course, a sinewave, with a period equal to 
that of the final waveform. This is equivalent to 
passing a square wave through a perfect low pass 
filter with the cut-off set just between the fun- 
damental and the third harmonic frequency. 

Figure 2 shows the effect of adding the third 
harmonic. The peaks have been flattened-out and 
the sides steepened. By the time the ninth har- 
monic is added, the square wave is recognised 
easily, even though there is a _ considerable 
amount of ripple (figure 3). 

After all 29 harmonics (figure 4) the tops are 
nearly flattened, with slight over-shoot and ripple. 
One could go on adding harmonics forever. A 
reasonable time to stop, however, is when the 
resolution of the graph falls below the value of the 
component added, or, as in this case, sooner. 

People familiar with audio filters will notice that 
the effects of the low-pass filtering program are 
not identical to those observed with a conven- 
tional low-pass filter. There are many reasons for 
this. No electronic filter has an infinite attenuation 
at an arbitrary cut-off point. So some higher- 
frequency component will always leak through. 

Furthermore, electronic filters invariably shift 
the phase angle of the various components. It 
would require only a small modification to the pro- 
gram to investigate the effect of phase shift in the 
synthesised waveforms. 

<SQUARE WAYE CALL PASS)> 


LOWER BOUND= -94. 1129015 
UPPER LIMIT= 94.1128017 


THERE ARE SG POINTS 
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Figure 5 shows the effect of a high-pass filter 
on the same data. There is zero harmonic content 
— total attenuation — at the fundamental, third, 
fifth and seventh harmonic, and then zero atten- 
tuation from the ninth to the 29th, where the 
sample ends. 


Predictable 
The effect is predictable, since the higher- 
frequency components constitute those portions 
of the waveform which change most rapidly. 
They are the sides of the squarewave and it has 
been effectively differentiated into a sharp pulse. 
The points have been joined by hand to improve 
legibility. The total energy of the waveform has 
been reduced considerably; the points cluster 
about the zero line in the centre of the graph. 
Overall amplitude is diminished from —90 to 
+90 to —42.4 to +42.4, although the plotting 
routine always normalises the smallest value at 
the bottom and the largest to the top of the graph. 
The main program runs from statement 130 to 
710. The user first sets-up the data arrays by 
specifying how many sample points the 
waveform is to have — this need not be the same 
as in the analysis program — and the total number 
of harmonics. This should always be fewer than 
half the number of points. ‘‘Run title’ is a string 
assigned to the name of the waveform being 
investigated. 


(SQUARE WAVE <ALL PASS) 
LOWER BOUND= -96.9904593 
UPPER LINIT= 90,0904594 


THERE ARE SG POINTS 
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Stage two is to input all the harmonic 
amplitudes and phase angles. Rudimentary data 
validation ensures that the harmonic amplitude is 
positive and that the phase angle is in the range 
— +. Should either of those tests fail, the 
user is invited to re-type the values. 

“Filter title’ (335) will act as a reminder of 
how the waveform is being modified. WV is 
zeroed (340-370), as the synthesised waveform 
will be added successively into the array of point 
values. 

The program inner loop (380-610) adds each 
sinewave component into WV (490-530) in turn. 
Those elements are multiplied by the filter coeffi- 
cient, MT, which were input at 440-450, they 
are also in an array so that tables of parameters 
can be printed later. Negative filter coefficient 
values are disallowed. 

As each harmonic is added, the user can plot a 
graph of the result on the Pet (550-560) by call- 
ing subroutine 3000. This is almost identical to 
the version given in Part One but with a slight effi- 
ciency increase and a different header to print the 
run and filter titles. 

As before, the user may also print a hard-copy 
graph (510-580), again using code (subroutine 
4000) similar to that in Part One. Figures 1 to 6 
are examples of graphs produced in this way. 

By checking only the first character of the 
answers to each of the option questions Y$, both 
“Y" and ‘‘YES’’ — and ‘’X YETI”’ probably — are 
taken as affirmatives and any other character or 
string as the negative. This is a great improve- 
ment over the ‘‘YES’’ answer required always by 
the code in part one. 

Being able to hear the waveform produced is a 
bonus; subroutine 5000 is new and worth look- 
ing at in some detail. An area at the top of user 
memory has been reserved as a buffer into which 
the elements of WV will be placed, having been 
normalised suitably (5010-5120) to be between 
zero and 255. 

Usually the top of memory is used by the Basic 
interpreter to store strings used in the program. 
When the Pet is first powered-up, a test pattern of 
bytes is stored into memory from the lowest loca- 
tions until the first location which fails to return 
the value written into it. This location is then 
taken as the top of user memory. Top-of-memory 
address is stored in locations 124 and 135. The 
Pet can be fooled into thinking it is a smaller 
machine than it is by changing the value stored in 
those two locations (1-3). 

Having set up the buffer, a call is made to a 
short machine code routine (5160) with a SYS() 
call which dumps the buffer out repeatedly to the 


user port for digital-to-analogue conversion. 

The machine code (listing 2) is three nested 
loops, and is stored in the unused tape buffer 2 at 
826. The waveform length is stored in location 
(6704). The X-register is used to point to each of 
the points in the buffer from 6705 and its value 
transferred to the user port in loop ROUND to BNE 
ROUND. 

This is repeated 255 times by loading the Y- 

register with 255 and counting down to zero, in 
the loop NCYCLE to BNE NCYCLE. The outer loop 
OCYCLE to BNE OCYCLE repeats that process 
TIMER times. The length of time the sound is pro- 
duced depends on the two variables LENGTH and 
TIMER. 
Larger arrays WV(LENGTH) cause the waveforms 
not only to sound for a longer time but also at a 
lower frequency — about 150Hz for 200 points, 
600Hz for 50 points. Time-wasting instructions 
can be put between DELAY NOP and RTS to 
lower the frequency. 

It is unfortunate that a fixed period tone- 
generation scheme had to be used. To compen- 
sate for it, routine 5000 allows the user to hear 
the waveform as many times as is desired. Our 
first idea was to make the output routine repeat 
forever but to check periodically the contents of 
Pet location 525. 

Location 525 indicates to the system how 
many characters still remain in the keyboard input 
buffer. If this is set to zero before the machine 
code is called, one could interrupt the waveform 
by pressing any key, thereby incrementing loca- 
tion 525. The disadvantage of this scheme is that 
the keyboard is scanned during an interrupt 
routine every 1/5Oth of a second as the monitor 
re-scans. This, in turn, means that the tone would 
be modulated with a 50Hz signal. 

To cure this, all interrupts are switched-off in 
the 6502 processor with an SEI instruction. A CLI 
instruction at the end of the code restores the pro- 
cessor to its proper status. 

When all the harmonics are added and the 
waveform is synthesised totally, the user has two 
more options before quitting the program 
altogether (710) or trying-out the data with a new 
filter-envelope shape (670-700). 

First, a resume may be printed (630-640) 
which contains a list of all the harmonic 
amplitudes, phase angles and filter coefficients 
used in the last run. Table one shows an example 
of this routine (6000). 

The slightly unusual form of the print 
statements is designed to protect the user from 
vagaries in the IEEE to RS232 interface. The se- 
cond option is to print, on the hard-copy device, a 


CSQUARE WAVE CALL_PASS>> 
LOWER BOUND: 
UPPER LIMIT 
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bar chart showing the relative amplitudes of all 
the harmonics after filtering, as in figure 7 
(650-660). 

Subroutine 6500 generates the bar chart in a 
similar manner to the code in Part One which 
displayed the relative amplitudes there. 

To prevent re-typing all the data each time, an 
option is given to repeat the whole process, 
changing only the filter values. It would be equally 
possible to change the INPUT statements of 250 
to a READ and to store the parameters in Basic 
DATA statements. 

lf the user wishes to alternate between the 
analysis program of Part One and the synthesis 
program here, care should be taken to re-set the 
Pet before the analysis program is entered. The 
analysis program uses the whole machine and 
crashes with large numbers of sample points if 
the locations 134 and 135 are not restored to 
their proper values. 

Try the effect of two particularly interesting 
types of waveform. First, the rectified sinewave. 
Modify the analysis program by adding a state- 
ment at 1135. To generate a half wave rectified 
signal add 1135 Il WV(I) O THEN WVi(I) = 0; 
this removes the negative half of the signal. To 
generate a full-wave rectified signal add 1135 
WVi(l) = ABS(WVi(I)). This inverts the negative 
hump so that it becomes positive. 

These waveforms are particularly interesting 
because they contain only even harmonics in the 
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series. All the other waveforms we have looked 
at, in Part One and Part Two, contain either both 
even and odd or only the odd harmonics. A full 
wave rectified signal is defined as: 


Best (== cos 4x 


cos 6x ) 
1.3 34 


Jet 


The second, and much wider, class of in- 
teresting waveforms are all the possible pulse 
waves. They are rich in harmonics and narrow 
pulses especially so. Investigate the effects of 
pulse-width and also the position of the pulse in 
the cycle. As an initial modification to the analysis 
program try 1220 TM = NO/10. 

In some pulse configurations the harmonics 
seem to trail away to nothing, but this is decep- 
tive; they are, in fact, part of a comb-spectrum, 
one which ‘‘bounces”’ like a rubber ball thrown 
obliquely against the ground. 

As a final experiment, we decided to see if it 
would be feasible to synthesise a human voice 


LOWER BOUND= 


SQUARE WAVE (HIGH PASS) > 
~42.3712805 
UPPER LIMIT= 42.3712781 





THERE ARE SG@ POINTS 
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sound The vowel sound ‘’e’” was chosen and 
we adopted a much- simplified model of the 
vocal system. Firstly, there is a voicing sound 
from the vocal cords — simulated here by the 
harmonics of a square wave. 

Two hundred points were taken to give an out- 
put frequency of about 150OHz, approximately 
that of a man’s voice. 

Two filter formats were superimposed on this, 
one around the seveth harmonic and one around 
the 22nd. This looks satisfactory on paper but it 
has to be said that the result did not sound much 
like the human voice. 

There are several possible explanations. A 
square wave is a bit too rich in harmonics, since 
the glottal waveform is nearer a ramp with the 
bottom chopped off. Also, the filter bands are in 
the wrong place — 1KHz and 3: 3KHz as oppos- 
ed to about 400KHz and 2KHz. More work is ob- 
viously required in this direction but once it is suc- 
cessful, other vowels should be simulated easily 
by shifting the relative positions of the lower and 
higher band-pass filters. 








Takle One 
DATA FOR SQUARE WAVE <VOWEL “E> 
HARMOWIC AMPLITUDE PHASE ANGLE FILTER 
1 a Ls) 
2 a a 
3 a a 
4 a 8 
5 a a2 
6 a a 
‘7 a 1 
bat a a 
3 a Pk) 
18 a a a 
11 3. a wen 
12 a a 8 
13 Pe 4 a 
i4 a a 6 
15 6 a a 
16 8 4 a 
i? 5. a a 
18 a 8 g 
13 ce a «eo 
ae a 6 4 
4.762 a ote 
a a a 
4.545 L3) 1 
a a a 
4 


2 oe 


acm 
fu 
on 
ye 
ae 








; CODE TO POKE “LENGTH* BYTES IN 


i; A BUFFER STARTING AT 6785 TO 
} THE USER OUTPUT PORT AT AUDIO 
» FPREGUENCIES 








; PORT DD = 
3} PORT IO = 
i TIMER = 
i; LENGTH = 
i; SBUFF = 676 
START OF PROGRAM 
Be ¥=$033A 
633 73 START SEI ; DISABLE INTERRUPTS 
Q@33B AS B2 LDA #2 
A233 BI 2F 1A STA TIMER 
8348 Ag FF DCYCLE LOY ##FF 
@342 Ae oo HCYCLE LIX #@ 
A BD 31 1A ROUND LDA SBUFF.# 
8D 4F EB STA PORTIO 
20 68 O3 ISR DELAY 
ES INK 
EC 36 1A CP* LENGTH 
De Fi BNE ROUND 
[5] DEY 
Da EC BNE HCYCLE 
CE 2F 1A DEC TIMER 
AL 2F 1A LDA TIMER 
te Ez BNE OCYCLE 
58 CLI 
6a RTS 





i) USE DELAY TO LOWER FREQUENCY 
DELAY NOP 
RTS 





SECOND PASS FIMISHED (.+ 


SYMBOL TABLE 
18 


PORTDD PORTIO ES4F 

TIMER: LENGTH 1A3& SBUFF 1AS1 
START OCYCLE 348 NCYCLE 8342 
ROUMII DELAY a 








EXD OF ASSEMBLY 


FOURIER LISTING 
















Jeo Sh oh boo hoe 





REM MACHINE CODE LOADER 

4 READ AL 

READ BY 

IF BYy<a THEN ise 
POKE AD BY 

AD=AD+i 

4 GOTO 44 
a REM SET-UP 

CH=4: REM PRINTER CONTROL 

PH=a"°REM PRINTER WIDTH 

PRIHT “FOURIER SYNTHESIS PROGRAM" 

PRINT “ss===== <s==s===== =======' 

TMPUT "RUN TITLE": RTS 

THPUT "NUMBER OF POINTS"; HO 

THPUT "NUMBER OF HARMONICS" > NH 

DIM WYeMO2.H4A¢MHD.PACNHD. MT CNH?» TPCHHD 
PRINT "FOR EACH HARMONIC INPUT: " 

PRINT "1ST - HARMONIC AMPLITUDE <>=@>" 
PRINT "2ND - PHASE ANGLE ¢=-PI TO +PI>" 

FOR I=1 TO HH 

PRINT I>" HA, PA"; 

IMPUT HACT>.PACIS 

REM VALIDATE DATA ITEMS 

IF HACI3>=8 THEN 3ae 














OR 4 MACHINE 
2 0R 4 MACHINE 





oS 


HVsaeauagnm ae 





PRINT "MEGATIVE HARMONIC AMPLITUDE - REDO" 
GOTO 248 

IF PACI3>=-PI AND PACI 
PRINT "PHASE ANGLE OUT 
GOTO 2448 

HEXT I 

INPUT "FILTER TITLE"; FT$ 
REM ZERO WY 

FOR i= 1 TO NO 





3<=PI THEN 336 
OF RANGE - RETO" 








PRINT "BUILD UP WAVEFORM" 
FOR I=1 TO HH 

PRINT "HARMONIC "31; 

IF HA¢I>>@ THEN 446 
PRINT " HAS HO COMPONENT" 
GOTO 614 


G@ PRINT "“HA= "sSHACIOi" PA= "PACT; 


INPUT " FE="SMT¢I> 

IF MTCI3> THEN 496 

60TO 6168 

REM ADD HARMONIC To WY 

FOR J=1 TO NO 

Q= “MOO+PACT) 

SWVC TS+¢SINCGS#HACT 3 DRMTCID 

NEXT J 

REM USER DISPLAY OPTIONS 

INPUT "DO YOU WANT A PET GRAPH": Y¢ 

IF LEFTS¢¥#.15="%" THEN GOSUE 3aa8 
INPUT "DO YOU WANT A PRINTER GRAPH"; '¢ 
IF LEFTS<v$, 1 = "ye THEN GOSUB 4006 
IHFUT "DO S'OU WANT TO HEAR WAVEFORM" ; Y$ 
IF LEFT#¢<¥#,19=""" THEN GOSUB 5aaG 
NEXT I 

PRINT “END OF RUN" 

INPUT "DO YOU WISH TO RESUME FRINT" : Yt 
IF LEFT#¢'"$.13="%" THEN GOSUB éon6 
INPUT "DO YOU WISH TO SEE FILTER ENVELOPE"; Y¢ 
IF LEFT#¢¥#,i9=""" THEN GOSUB 65a6 











PET/CBM 8032 
£90 


If you have a 4000 series PET/CBM with a 12 inch screen, we can convert it to 80 column 
with all functions implemented, inchiding TAB and ESC. 


4082 to 8032 — £90 
4016 to 8032 — £120 


With the switched version you can change from 40 column to 80 column — so you can still 
use your existing software. 

If you already have an 8032 it can be made switchable so that you can run all those 40 col- 
umn games. 


4032 switchable to 8032 (and vice versa) — £120 
4016 upgrade to 32K and switchable to 8082 — £150 


MEMORY UPGRADE 
8K to 32K — £60 16K to 32K — £35 


PERSONALISE YOUR PET 


Sr ee em Fee nas eee ee Cee ee + 


ALL PRICES FULLY INCLUSIVE 


WINDMILL ELECTRONICS 
197 Victoria Road East, Thornton, 


Blackpool, FY5 3ST 
Telephone: (0253) 869108 
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Basic Programs 








4058 PRINI#LH 512@ NEXT K 

4064 PRINT#CH. "THERE ARE ";NOQ;" POINTS" 5134 REM NO OF POINTS TO LENGTH 

4078 PRINT#HCH 514@ POKE BF.NO 

4636 PRINT#CH 515@ REM JUMP TO ROUTINE 

4090 FOR L=1 TO PH 5166 s¥Se26 

416 PRINTHCH."= "5 5174 INPUT "DO YOU WANT TO HEAR IT AGAIN"; 
4118 NEXT L 5194 IF LEFTS¢¥$,.19=""" THEN 516a 

4126 PRINT#CH 5138 RETURN 

4136 TH=Mx-MN 6966 REM PRINT HA. PA & FILTER CO-EFF 

4146 FOR L=1 TO NO 6805 OPEN CH:CH 

4150 SP=INTC¢ CMY <CLO-MND “THESE +8. 5D 6018 PRINT#CH. "DATA FOR "iRT$i" C"IFT$; ">" 
4160 IF SP>G THEN disa 6626 PRINT#CH." HARMONIC AMPLITUDE 
4170 PRINTHCH, "*" 603 PRINT#CH." PHASE ANGLE FILTER" 

4188 GOTO 4286 6046 PRINT#HCH 

4190 PRINT#CH. SPCCSP) i "#" 6056 FOR L=1 TO HH 

4206 NEXT L 6055 PRINT#HCH. " u 

4205 CLOSE CH 606@ PRINT#HCH, LEFTS(STRECLI+" «AGS 
4216 RETURN 6G7G PRINT#HCH. LEFTS<STR#<HACL) 2+" oPaaoe 
4506 REM FIND LARGEST <MX> & SMALLEST 608G PRINT#CH,. LEFT#<(STR#<PACLI 3+" "41495 
4501 REM <MN> YALUES IN WV 6090 PRINTHCH, LEFT#<STRECMT CL) +" SS 
4516 MH=bYC1) 616 NEXT L 

4526 MN=WY<¢1> 6116 CLOSE CH 

4536 FOR L=1 TO NO 6126 RETURN 

4546 IF WY<L>>M¥% THEN MX=WV¥CL)> 6506 REM DISPLAY FILTER“HARMONIC BAR CHART 
4550 IF WY¢L><MN THEN MN=WY¢L) 6595 OPEN CH.CH 

4566 NEXT L 6514 PRINT#CH. "HARMONIC“FILTER SPECTRUM OF: - 
4570 RETURN 6515 PRINTHCH."  "SRT$i" C"SFT#i "9" 

5aa@ REM SOUND WAVEFORM IN bl 6526 PRINT#CH 

5614 GOSUB 4506 6530 TPC12=HACL#MT C1) 

5026 POKE 59459,255 : REM PORT OUTPLIT 6546 MN=TPC13 

5036 BF=67a4 655@ FOR L=2 TO WH 

5048 REM LOADS POINTS TO RAM AT 67a5 6564 TPCLISHACLI#MTCL? 

550 TH=Mx-MN 6576 IF TP<Lo>M¥ THEN M¥=TPCL3 

5466 FOR K=1 TO NO 6586 NEXT L 

SA7B YVL=INT< ¢ CMY CK9-MND “TW#254 +0. 53 6596 FOR L=1 TO HH 

5980 IF YL>=@ AND YL<=255 THEN 5118 660G IF TP<L2>@ THEN 663a 

5696 PRINT "POINT ";K;" OUT OF RANGE ";¥L;" ERROR" 661@ PRINT#CH. "a" 

5196 RETURN 6626 GOTO 66sa 

5114 POKE BF+K. ¥L 6630 SP=INTCCCTPCLI/MH2#PHD 40, 5) 

674 PRINT "DO YOU WISH TO TRY A DIFFERENT" 6646 FOR N=1 TO SP 

686 PRINT "FILTER CONFIGURATION ON THIS DATA"; 6656 PRINT#HCH, "#" "3 

690 INPUT Y 666@ NEXT N 

7G IF LEFTS<¢¥#.19=""" THEN 335 6678 PRINT#HCH 

7ia@ END 6688 NEXT L 

3006 REM SUBROUTINE TO PLOT PET GRAPH 6636 CLOSE CH 

3616 GOSUB 4500 6766 RETURN 

3026 PRINT RT$i" ("GFT#i"9" REAL. 


3636 PRINT "LOWER BOUND= "MM 

3846 PRINT “UPPER LIMIT= "i Mx 

3956 FOR L=1 TO 39 

3068 PRINT "#"; 

3876 NEXT L 

3886 PRINT 

3838 TW=MX—-MN 

3166 FOR L=1 TO NO 

3116 PRINT "#"; 

3126 SP=INTCCCWY<¢LO-MND /TH#S6 +8. 5) 
3136 IF SF>@ THEN 3164 

314@ PRINT "#*#" 

3156 GOTO 3176 

3166 PRINT SPCCSP2; "#" 

3178 MEXT L 

3138 RETURH 

4668 REM SUBTROUTINE TO PLOT PRINTER GRAPH 
4685 OPEN CH.CH 

4618 GOSUB 4508 

4826 PRINTHCH RTS." C'S FTSi "9" 

4836 PRINT#CH. "LOWER BOUND= "MN 
4840 PRINT#HCH. "UPPER LIMIT= "GMX 
4856 PRINT#CH 

4866 PRINT#CH. "THERE ARE ";NO;" POINTS" 
48768 PRINT#CH 

4830 PRINT#CH 

4896 FOR L=1 TO PH 

4166 PRIHT#HCH,"= "5 

4116 NEXT L 

4124 PRINT#CH 

4138 TW=Mix-MN 

4146 FOR L=1 TO NO 

4156 SP=INTCOCWYCLO-MND “THESE +8, 5D 
4166 IF SP>@ THEN 4138 

4178 PRINTHCH, "#" 

$136 GOTO 4266 

419 PRINT#CH, SPCCSP) i "#" 

4266 NEXT L 

4285 CLOSE CH 

4216 RETURN 





‘Here You See Our Entry to the Far East Market.’ 
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PINEWOOD COMPUTERS 


announce 
the launch of 
the 64K EXPANSION BOARD for 8032 PETs 


Yes. We couldn't wait for the others so we have launched our own 
64K Memory Expansion board to upgrade the 8032 PET to a full 
96K. Silicon Office and other 96K programs are now possible on a 
32K PET with our board. It is of U.K. design and manufacture and 
comes complete with full fitting instructions. 


Our price £350 


Other new PET enhancements include: 

EPSON/PET INTERFACE CARD RRP £90 
For all MX printers. Our board gives 40 column PETs uppercase 
and graphics.and 80 column PETs both upper and lowercase with- 
out the need of switches or any software routine. 

RICOH RP1600 INTERFACE CARD RRP £115 
Our board gives 40 column PETs uppercase and 80 column PETs 
both upper and lowercase without any restrictions. 


MIDLANDS 


COMMODORE PET 
SERVICE CENTRE 


Phone Anne on 021-772 8181 
about our 


1. WORKSHOP & FIELD 
REPAIRS 


2. BUSINESS SOFTWARE 
3. STATIONERY & SUPPLIES 


Add £10 delivery plus VAT to above prices. 
To place your order send your remittance for the required amount 
to: 


PINEWOOD COMPUTERS 
Mail Order Dept., SS OO 
17 Adelphi Crescent, 
Hayes Park, Hayes, Middx CONSULTANTS 
DEALER ENQUIRIES WELCOME 75 Watery Lane, Birmingham B9 4HW. 
Telephone: 021-772 8181 (7 Lines) 


AND GET A SUPER CARTRIDGE 
GAME OR 3k RAM PACK FR EE 


OTHER BARGAINS 
Now Only Peripherals R.R.P. 
£17.35 £15.62 CZNCassette 39.09 
B VIC Printer 


Super Lander i i 
VIC Disk Drive 345.00 310.50 


LIGHT PEN 


TS lh Rac 19.99 ONLY 
SPURT ye HARDWARE LIGHT PEN 
FOR VIC-20 OR 8000 SERIES 


OR 12” SCREEN 4000 SERIES 
INCLUDING FREE CASSETTE 
TAPE WITH SUPER 
DEMONSTRATION 
SOFTWARE! 


THEY SAID IT WASN'T POSSIBLE 

BUTIT’S 

TRUE! AND FOR LESS THAN YOU'D Cr es AL eee reese eal toy a ste is: 

B E L | E VE! i Delivery Post & Package £1.50 Ex. VAT 
NOTE DOES NOT USE USER PORT 
ON PET THIS LIGHT PEN IS SUPER 
FAST. PLEASE SPECIFY EITHER VIC 


gi Disk (suitable Pet + VIC) 
Box of 10 30.00 19.85 


PLEASE SEND ME: 
ViC-20 0 
LIGHT PEN 0 


GORES ROAD, KIRKBY INDUSTRIAL ESTATE, 
KIRKBY, NEAR LIVERPOOL L33 7UA. 


ame, Telephone: 051-548 7111 
VISA ACCESS & BARCLAYCARD 
Sue WELCOME 
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Machine Code 





Miachine Language 


Auto-Location 


When a program like Supermon or Tinymon loads 
into its computer and RUN is given, it builds a 
copy of the “‘real’’ program is high memory. 
There’s a need to do this: different computers 
have different memory sizes, and we want to find 
the top memory wherever it is. More: the com- 
puter might already have something else near the 
top of memory (such as a wedge program) and 
we want the new program to fit neatly below it. 

This calls for an auto-location program. The ob- 
ject program must be packed into high memory. 
This is often more than just moving the program, 
since some things may need to be changed with 
the move. If you have a program that uses only 
branches — no jumps, no in-program subroutines, 
no tables — you may be able to get away with a 
simple move operation. But any instruction that 
uses an in-program absolute address: jumps, 
subroutine calls, and tables — will need to be 
adjusted. 

We need to build a relocatable program module. 
Something that says, ‘’This byte is normal so we 
may just move it; but that pair of bytes is an ad- 
dress and must be recalculated for the new 
location’’. 


Ground Rules 

We need a scheme which marks addresses so 
that the proper arithmetic may be performed. 
There’s one requirement as to how to write the 
program: it may be summarized as ‘‘all addresses 
must be in one piece’... 

The rule makes sense: it would be difficult to 
perform arithmetic on an address whose two 
bytes were scattered in different parts of the pro- 
gram. For users with assemblers, the rule 
translates to: never use the or — functions for 
high and low byte. 

So if we wanted to place the address of TABLE 
into indirect address INDAD, we would avoid 
coding: LDA = TABLE : STA INDAD : LDA 
= TABLE : STA INDAD+1. 
define the table address in memory with 
TABLAD. WORD TABLE and perform the above 
setup with LDA TABLAD : STA INDAD : LDA 
TABLAD +1: STA INDAD+1. We've used four 
more bytes but gained a major benefit: the two 
bytes representing the address of TABLE are now 
stored together (at TABLAD) and we can adjust 
this address easily when we wish to relocate. 
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Instead, we'd - 


The Method 

The way we build a relocatable module is quite 
easy. Any time we see an address that will need 
relocation, we place a zero above it. As we repack 
the program (from the top down) the zero will 
signal that a relocatable address follows. 

That’s all very well, but, what do we do with 
real zeros? There will be many zeros in the pro- 
gram itself, and we don’t want them to trigger a 
false relocation calculation. In this case, we 
change the zero to two zeros in the relocatable 
package. The relocation program will spot this 
and change it back to a single zero. 

In order to do arithmetic on the addresses, we 
need to know where they are pointed in the first 
place. To relocate from $1000 to $4000, for ex- 
ample, we need to add $3000; but we must 
know that we are starting from $1000. | use the 
following convention: addresses are written so 
that the top of the program plus one is $0000 — 
that is, the last byte of the relocatable program is 
$FFFF. The program can’t really go there, since 
that’s ROM space, but it makes the arithmetic 
easy. We can look at an address in the relocation 
package as a signed number: address $FFCO can 
be viewed as ‘’64 bytes from the top of the pro- 
gram’’. If our real top-of-program turned out to be 
$8000, which would be correct for a 32K 
machine, we would translate the sequence 20 CO 
FF OO to 20 CO 7F .. . note that the zero disap- 
pears; it’s the relocation flag. How did we get the 
new address $7FCO? By adding the relocation ad- 
dress, $FFCO, to the top-of-program, $8000. 


Generating the Relocatable Program 
How do we manufacture this package with zeros 
added and addresses recalculated, ready for 
relocation? With an assembler it’s quite easy. 

First, we assemble two versions of the program 
at two different locations. That’s easy enough to 
do: we just change the * = statement at the start 
of our source code. ° 

Then we run a simple compare program which 
compares the two object programs we have 
assembled, starting from the top. Each matching 
byte is copied into the relocation area unchanged; 
if it’s a zero, an extra zero is added. If the bytes 
don’t match, we have a relocatable address: in 
this case, we insert the zero plus the recalculated 
address into the relocation package. It’s an easy 


job: my “‘relocate builder’’ is a BASIC program of 0400-063F BASIC portion (title, sys address, etc) 
about a dozen lines. 


0640 AS 2A LDA $2A zstore copy of 
0642 85 1F STA $S1F ;Start of Variables 
0644 AS 2B LDA $2B zpointer (last byte of 
poate cg RR ET aaa ae 
7;store co ° 
As we work down from the top we need to detect 064A 85 21 STA $21 ;Top of iewory 
when we have reached the end of the program: Seas Gata phe ell emai 
this is true of both the relocate builder and the 0650 AO 00 LDY #$00 ;zeroise Y index 
a i 0652 AS 1F LDA S1F ;dec pointer to last 
relocating program itself. There are many easy 0654 DO 02 BNE $0658 ibyte of object prog. 
. . . 656 C6 20 DEC $20 Hi t te t 
ways of doing it. The program can test to see if fe2e Ce 22 BEE. S70 od algae 
j 065A Bl 1F LDA ($1F),Y ;get obj. prog. byte 
the last address has been reached. Alternatively, Seah Bh Ge... 2 ee SeRRhe™ 2988 gba. peoge br 
we can put some sort of “‘flag’’ into the coding _ a if LDA iF ;if 0, dec pointer 
itself to detect the end. In TINYMON, | use a value 0662 C6 20 DEC $20 
$BF which is never used in the program as asim- = 0¢¢¢ 5) ir LDA (S1F),Y _ jand get next byte 
ple detection. A more complete method might be 0668 FO 21 BEQ $068B 70? yes, true zero * 
: Ff ’ O66A 85 23 STA $23 7no, relocatable addr 
to use a zero with a value of 1 stored below it. It’s 066C AS 1F LDA $1F ;store high byte in 
4 F} o a int 
up to you: whatever works is OK. el tee aie RRS 
0672 C6 1F DEC $1F 
VIC Note 0674 et 1F LDA (S$1F),Y get eaxk base ms 
0676 CLC yrecalculate lo addr 
0677 65 21 ADC $21 ; i MemT. 1 
In the VIC, we have one more problem to solve. Sera hk oct freautt tales. 
i i O67A A5 23 LDA $23 ;recalculate hi addr 
We can find the top memory (locations $37 and po ogente es ire-aes fgg alin 
$38) but our program might fall into different Rere 48 = PHA we iresult on stack 
* 7 fs ;dec MemTo 
space, depending on what’s plugged in. Use 0681 DO 02 BNE $0685 i 
pointers to find your own program (try $2D and — 82 Co 35 BRE S35 
i i 0687 68 PLA ;retrieve hi addr 
$2E) and everything should work out nicely. ot ae ae ee ahaix: TMC uE el 
O68A 8A TXA ;retrieve lo addr 
068B 48 PHA 7* save on stack 
068C A5 34 LDA $34 ;dec MemTop 
O68E DO 02 BNE $0692 
0690 C6 35 DEC $35 
0692 C6 34 DEC $34 
0694 68 PLA ;retrieve byte 
Summary 0695 91 34 STA ($34),Y ;pack at ($MemTop) .Y=0 
H 0697 18 CLC ;rather than 
You can pick apart i” code of SUPERMON or eon aa. he ace. 40685 as me 
069A C9 BF CMP #SBF zlast byte? 
TINYMON and see how it’s done. You can roo a a. ee ihe: ar 
develop your own programs. But if you unders- 069E A5 34 LDA $34 yes, set 
tand the principles of a relocating program 0649 85 32 STA $30 ——. ee 
i ifj 06A4 85 31 STA $31 7pointer 
package, you can develop significantly more O06A6 6C 34 00 JMP ($0034) ;jmp to program 
useful programs which will adapt to a wider varie- sd BF rene Getector me obj prog 
ty of machine configurations. or + ese ote fia Eke 


Editor’s Note 

The machine code dissassembly to follow is Jim 
Butterfields relocator modified slightly by Dave 
Hook. Dave eliminated the JMPs and JSRs in 
Jim's original utility so that the relocator can be 
relocated. For Vicloader, it starts at $0640, but 
you can move it anywhere; higher if you want 
more BASIC underneath it, or lower for larger ob- 
ject programs. 

Notice that the relocator starts with the end of 
the object program since this will be the first byte 
to be packed into high memory. This is conve- 
niently pointed at by the Start of Variables pointer 
minus 1, which is set on completion of the LOAD 5 
(provided it is .Saved properly). Quest for Pet. . . 
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NETKIT II 


|Oyabarcosucy:] an Groyenbeniebatte-ialeyats 
for the Commodore PET 


Why buy an expensive terminal when you can use a Commodore PET 
and still be able to run normal business software. 





NETKIT II is being used in many varied and diverse applications, not only 
as an intelligent or dumb terminal to MINI or MAINFRAME 
COMPUTERS, but also to support PET to PET communication with 
shared processing and transfer of programs and data. Numerous other 
applications are in use including interfacing to NC MACHINES, PAPER 
TAPE PUNCHES, TELEX EQUIPMENT, HAND-HELD DATA CAPTURE 
TERMINALS and other industrial and scientific equipment 


NETKIT Il is the completely re-designed and upgraded version of the best 
selling NETKIT communications interface 


Unlike other software communication packages which are available 
NETKIT II is a combined HARDWARE and SOFTWARE package which 
provides the PET with an RS 232 interface and new powerful 
communication commands. As the software is contained in a 4K EPROM 
within NETKIT Ila disk drive is not a necessity. 


NETKIT II is now available for all series of PETS and is supplied with a 
comprehensive operation and applications manual. 


ONLY £150 + VAT. 


orkshire 
ICO, Computers 


28 RAMSHILL ROAD SCARBOROUGH NORTH YORKSHIRE YO11 20F 
TEL: (0723! 78136 TELEX: 527579 


KINGSLEY COMPUTERS LTD. 
132 Desborough Road 
HIGH WYCOMBE, BUCKS HP11 2PU 


CBM BUSINESS SYSTEMS 


VIC HOME COMPUTERS 


COMPUTER ACCESSORIES 
AND SUPPLIES 


AGENTS FOR CBM 
APPROVED PRODUCTS 


COMMODORE 
SERVICE CENTRE 
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Happy Birthday, KRAM! 


Two years ago we introduced FRAM to the LK mrket, ad since then 
several thousand copies have been sold world-wide. KRAM is 
approved by Commdore, and adds ten new commands to any Commodore 
Basic, to allow “keyed access" to disk data. You can read through 
FRAM files in ALPHABETICAL order of key, either forwards or 
backwards. For any C8M/PET with CBM floppy disk drive. (MATOR hard 
disk version under test). Includes a Rom (for UD4/UDI11), 4-~—page 
User Mawal and demo mailing list program on disk, a £86.95. 


Superkram 


SUPERKRAM has all the facilities of KRAM, as well as a secondary 
MULTI-KEY facility allowing retrieval of data based on the 
contents of the RECORDS! The SUPERKRAM package includes a Rom (for 
the UD4/UD11 slot), a User Reference manual and demo mailing list 
Program on disk, £146.95 (3040 disk only - 8050 available soon). 


Command-o 


COMMAND-O is a 4K ROM that adds 39 NEW FUNCTIONS to Basic IV Pets, 
including improved 'Toolkit' commands (AUIO, DUMP, TDELETE, FIND, 
HELP, TRACE, RENUMIER), PRINT USING, MERGE, USER-IEFINABIE leys, 
PROGRAM scrolling, and disk commands to replace Dos Support, 
SCROLL, MOVE, OUI, BEEP, KILL, 8032 control chars on key. Cams 
with Rom (for UD3/UD12), 80-page User Mawal and Quick Reference 
Card at £59.95. Models for 80-colum, 9 inch & 12-inch 40-colum. 


e 
Disk-o-pro 
DISK-O-FRO for 2000/3000 series Pets is similar to Command-o, but 
the Toolkit functions are replaced by the complete Basic IV 
command set. Unlike the standard Basic IV Upgrade, mst existing 
Programs and Rons (including Toolkit) will work as before. Ran 
(for UD3), 80—page User Maal & Quick Reference Card at £59.95. 


DTL Compiler 


The ITL Compiler is the ONLY Pet Compiler that works with Basic 
extensions (e.g. Disk-o-pro, Command-o, Kram), and which is also 
completely compatible with Pet Basic. A compiled program will run 
up to 2) times faster, axd use less memory. RRP £300 or £360 
(Basic II oc IV). OUR MAIL ORDER SPECIAL OFFER - £230 or £275! 


Wordpro Plus 


The WORDPRO range meets, ai often exceeds, the facilities 
available on dedicated wrd-processing machines costing several 
thousand pounds or more. All our ow sales literature (including 
this ad) are produced using WRDPRO IV PLUS. The Rom fits in the 
UD4/UD11 slot. Wordpro ILI Plus (4 colum) RRP is £275.00, 
Wordpro IV Plus or V Plus (80-colum, 32K or %K) RRP is £395.00: 
OUR MAIL ORDER SPECIAL OFFER ~ £206.25 or £296.25! 


Visicalc 
VISICALC, a ‘wordprocessor with numbers’, is now the most popular 
software package ever. As well as being an excellent business aid, 
Visicalc is also invaluable in any organisation large enough to 
have a budgeting or planning activity. RRP £148 (32K) CR £170 (CBM 
8096): OUR MAIL ORDER SPECIAL OFFER - £130 or £150! 


Spacemaker 


SPACEMAKER leeps you ahead in the Rom Race! The new Quad model 
allows up to four Rans to be mounted into ome Ron slot, with 
selection of Roms from an external 4-way switch, RRP £29.% 


ORDERING INFORMATION: Add 15% VAT. For same-day Access/Barclaycard 
service: call 01-546-7256. To order by post: write to Calco 
Software, FREEPOST, Kingston-upon-Thanes, Surrey K[2 7 (ro stamp 
required). For over-the-counter sales: see your Commdore dealer. 
You my also order through PRESTEL. Prepaid orders are despatched 
by Ist Class Post, free of charge. OVERSEAS ORDERS: no VAT charge, 
but add £3.00 Airmail P&P (Europe) or £5.00 (outside Europe). 


WRITE OR TELEPHONE FOR OUR COMPREHENSIVE DATA SHEETS 


Calco Software 


Lakeside House,Kingston Hill,Surrey KT2 7QT 01-546-7256 
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AMOK... The halls of AMOK are populated by robots out of control and out to get you. To save yourself you must be quick on the 
draw and fast on your feet. VP010 £6.99. 


SIMPLE SIMON ... Puts your dexterity and memory to test. You have to follow a sequence of flashing colour bars and tones. VP011 
£6.99. 

ViCaic ... Turns the VIC into an easy to use programmable calculator. Ten memories are displayed on the screen along with four 
working registers. Using single keystrokes all normal addition, multiplication etc. and scientific functions may be undertaken as 
well as compound interest and percentage. Precision may be set to round up the last digit from 0 to 9 decimal places. VP012 £8.99. 


A-MAZ-ING .. . Needs 3K expansion. Fast action gobbler game - eat the dots and avoid the nasty ghosts. You can eat the ghosts 
when they change colour. VP016 £6.99. 


MASTERWITS .. . Try to deduce the pattern of four markers from the six colours at your disposal, while Masterwits gives you the 
clues you need. Rumour has it that seven tries is average!? VP023 £6.99. 

KIDDIE CHECKERS .. : Teaches small children to play the game of draughts. Only looks one move ahead. VP024 £6.99. 
WALL STREET... The stock market comes to life. Follow the market's daily rise and fall with cash, shares and hope. Sharp trading 
will win. VP025 £6.99. 


ALIEN BLITZ... How good are you at blasting aliens from the sky? Find out on the superhuman ninth level. VP026 £7.99. 


SKYMATH .. . Needs 3K expansion. Specially for young children! Addition and subtraction problems set in a highly entertaining 
audio-visual presentation. The sound and visuals provide the incentive to learn. VP029 £6.99. 


SPACE DIVISION (Level 1) ... Needs 3K expansion. Another one for kids! This program sets division questions in the context of a 
rocket countdown. As the questions are answered correctly, the rocket prepares for blast off, until finally the child is rewarded by 
seeing the rocket take off. VP030 £6.99. 

INVADER FALL ... Another variation on the Invader theme. This time the unpredictable aliens fall from the sky at different points 
across the screen. You must shoot them before they touch ground. Accuracy and quick reflexes essential! VP032 £6.99. 

THE ALIEN .. . Needs 3K expansion. You are the Alien. You have landed in a maze inhabited by unfriendly creatures. You must trap 
the creatures in your inflatable traps to avoid being eaten by them. A totally original game concept! VP033 £7.99. 

STAR WARS ... A game for all you budding Skywalkers! You are the space gunner fighting off the interceptor ships of the evil 
Empire. VP034 £6.99. 

HANGMAN-HANGMATH .. . HANGMAN ... As it suggests. You must guess the word before you get hung from the gallows. 
HANGMATH .. . The same except that you have to solve a mathematical problem. VP044 £7.99. 

MATH HURDLER-MONSTER MAZE... MATH HURDLER ... Is designed to teach basic maths. If you answer wrongly the hurdler 
crashes. MONSTER-MAZE . .. You are in a maze and have to escape by the exit without crashing into walls or being caught by the 
monster. VP045 £7.99. 

SEAWOLF-BOUNCE OUT-VIC TRAP... SEAWOLF ... You areasubmarine and you have to sink as many enemy ships as possible 
in 60 seconds. BOUNCE-OUT ... Full colour ‘Breakout’ type game. Keep the ball in play while breaking down the wall. VIC TRAP... 
A battle between you and the VIC. Try to cross the screen whilst enticing the VIC to cross your path to score extra points. VP046 
£8.99 

CODE MAKER-CODE BREAKER .. . CODE BREAKER ... The VIC has to guess what code or pattern you have made. CODE 
MAKER ... You have to guess the code or pattern that the VIC has produced. You are rewarded with black or white tokens as to the 
number of guesses you have made. VP047 £7.99. 


KOSMIC KAMIKAZE .. . Requires 3K or 8K expansion. Destroy the suicidal aliens as they try to land on Earth. Avoid the deadly 
beams from the Mothership. A fast-action Invader Fall type game. VP053 £7.99 


MINIKIT . . . The low-cost high power VIC toolkit program for any memory size! This cassette program automatically relocates itself 
at the top of memory, taking up about 1K. Using Minikit you can enter the common Basic Keywords with just one keystroke. Toolkit 
commands include Find, Kill, Delete, Auto and Trace. VP054 £7.99 


GOLF ... At last - Golf in the privacy of your own home! Set your handicap and tee off - with choice of clubs and nine different holes 

with hazards, bunkers, water, etc. About the only thing it doesn’t do is serve drinks in the clubhouse afterwards! VP055 £7.99 
CARTRIDGE PACKS 

SPIDERS OF MARS... The most incredible VIC game yet! You area trapped fly and you must shoot your way across Mars avoiding 

the dreaded Spiders and the other flying creatures. With classical music! VP014 £24.99. 


CLOUDBURST ... Save the Earth from the downpour of Acid Raindrops and the invasion of the mutant Cloud Hoppers. Speed and 
skill are essential! With original music and ten levels of play. VP048 £19.99. 


RENAISSANCE ... The ultimate Othello package for the VIC! This age-old game has been brought right up to date. You can play 
against the VIC with eight playing levels, or use the VIC as the board to play another person. During the games you can change sides 
and playing level, take back moves, set up and play special games, and even save and recall games to and from tape! VP049 £24.99. 
SATELLITES AND METEORITES ... The amazing Asteroids type game cartridge for the VIC. All the facilities of the famous Arcade 
game, plus. . . It uses the full screen! No more borders - the final frontier overcome! VP050 £24.99. 

METEOR RUN. .. Pilot your spaceship through the Meteor belt, blasting your way through the rocks and Alien saucers. A linear type 
of Asteroids game! Includes early warning radar display. VP051 £24.99. 


BUTI .. . The VIC programmers utility cartridge. Commands include AUTO, DELETE, DUMP, EDIT, FIND, HELP, KILL, OFF, 
RENUMBER, REPEAT, STEP, TRACE, UNNEW, plus Hex to Decimal (and vice-versa) converter and special VIC command which 
reconfigures the memory. All this PLUS A FREE 3K MEMORY EXPANSION BOARD INCLUDED! How do we do it??? VP052 29.99 


Now also representing HES samen tnsinered sotmere WIXEE (3 Wonhe 
Programs include Assembler-Editor, Text-Editor, from » WORKS 
Pet Vic commnications package and yet more games. 
ALL PRICES INCLUDE V.A.T. 
AVAILABLE FROM ALL GOOD DEALERS OR DIRECT FROM 
AUDIOGENIC, P.O. Box 88, Reading, Berks. Tel: Reading (0734) 586334 
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Mutek 


Quarry Hill, Box, Wilts 
Tel: Bath (0225) 743289 








T.A.L. 





SPRINTER - 





If you’re waiting for your printer to type out that document, and you're 
bored with waiting for it as usual, we may have the solution for you. 


The answer is Mutek’s Spriinter. 


Your daisy-wheel can only manage 50 characters per second at best; but 
your computer can probably ‘print’ at two thousand per second or 
more. With Spriinter between them, your computer can print as fast as 
it likes; your printer can take as long as it needs, without tying up the 
computer in the meantime. That’s just 15 seconds to dump a 30,000 
character document; then continue your work without interruption. 


Spriinter is an ‘intelligent buffer’, capable of storing up to 32K (ten pages 
or more) of text at a time. No changes are needed to your system or 
your software — it just plugs in. What’s more, you'll only need one 
Spriinter to connect almost any peripheral to your system — it has RS232 
serial, Centronics parallel and IEEE interfaces all built-in (six interfaces in 
all). So you can use a parallel printer from your computer’s serial port, 
an ordinary modem on your Pet, or almost any other device you want. 


Since Spriinter has its own intelligence and memory, it can easily be 
tailored to your needs. Converting from one interface standard to 
another; one data format to another; or even both at the same time. 
Call us today for a new way to solve your interfacing problems. 


Prices depend on specification and start at £185 (exc. VAT) for a 16K 
Spriinter complete with all six interfaces. And that’s much less than the 
extra cost of a faster printer! 
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ACEO ALL 


PET LOVERS 


INTRODUCE YOUR PETS TO OURS 
AND SOLVE YOUR INTERFACE PROBLEMS 





Only £195.00 





Only £195.00 








MICROSYSTEMS LTD 


ANALOGUE/DIGITAL I/O 


THE PUPI 


* 4 ANALOGUE INPUTS (12BiIT) 

* 2 ANALOGUE OUTPUTS (12 BIT) 
* 4RELAY OUTPUTS 

* 4LOGIC INPUTS 


When connected to the “PET” User 
Port the PUPI gives you all the above 
features together with an operating 
system in EPROM, which interacts 
with Basic’s variables, giving extremely simple 
operation. Inputs and outputs are +10V and relays 
are rated at 10VA. Logic inputs can be used for 
microswitch sensing etc. 





HIGH SPEED A/D CONVERTER 


THE PUSS! 

Wrerw’d{ © 4 ANALOGUE INPUTS (12 BIT) 

f @ @ § 44, * 50 MICROSECOND CONVERSION 
\ ee e=/ | \* STOP AND START TRIGGERS 


/ 


a oe Ft DATA ACQUISITION SOFTWARE 

/ 

a Using an operating system in 
\) EPROM, the PUSSI provides a high 

| h fy speed A-D Converter with 4 
bi Mat toed multiplexed inputs, which is under 

control of either software, or remote start/stop 

triggers. A-D Conversion can be carried out from 

Basic, or Machine Code, with up to 1500 readings 

entered directly into memory at a_ software 

determined rate. 


CIL MICROSYSTEMS LTD. 
DECOY RD., 
WORTHING, 

SUSSEX BN14 8ND. 


TELEX: 87515 WISCO G ATTMIC 
TEL: (0903) 210474 


Write, phone or to 
obtain further information circle number 





VIGS20 


ACCESSORIES FROM 


STACK 





STACK STOREBOARD 


eo expansion unit) 












Power up your VIC-20 to 
a MASSIVE 32k 
COMPUTER!! 


ony £49.00 


(plus VAT) for 3k 
and expandable to 27k on the same board. 


STACK 8k RAMPACK 


Use this upgrade pack to increase memory size on 


Stack Storeboard by 8k atime. 
NEW LOWER PRICE!! only £29. 00 
(plus VAT) 


STACK LOW COST 
RS232 INTERFACE 


Allows you to use a serial 
printer with your VIC-20. 


£22.99 


(plus VAT) 


STACK LOW COST 3k 
MEMORY 


The lowest costing memory addition 
gives you 62k of user memory on 

your VIC-20. Also allows you to use 

fy those ‘quality games which demand 
3k of Hi-Res raphics! Socket at rear 
i allows you to stack up further 
accessories 


only £20.99 


(plus VAT) 





STACK LIGHTPEN 


Allows you to use VIC-20 
without keyboard entry by 
simple programming. Sensor in 
pen sees the TV screen! Ideal 
for education. games. menu 
selection etc 


only £29.00 


(plus VAT) 


STACK ROM 
SWITCHBOARD 


Use up to 4 ROMs at 
once! eg. games, 
ROMs, VICKIT. 
VICKIT Il etc. 


New Lower Price!! £29. 00 


(plus VAT) 






STACK VICKIT SERIES 


A series of ROMs which greatly simplifies programming and 
enhance the qualities of your VIC-20. Fits into Stack ROM 
SWITCHBOARD or Stack STOREBOARD. 


VICKIT 


Offers HELP to programmers....it also offers AUTO, DELETE, 


DUMP. FIND, OFF. RENUMBER, STEP. TRACE. 
, £25.00 
(plus VAT) 
£15.00 


(plus VAT) 


Special Offer Price if Purchased 


with STOREBOARD only 


VICKIT II 


A 4k ROM offering ALL THE FEATURES OF VICKIT plus..... TEXT. 

GRAPHICS, LINE, CLEAR. DRAW. PUT. 00 

FILL. SET, POINT only ° 

(plus VAT) 

Other exciting additions to the 
VICKIT series due soon! 


Fe] al Clea !folU lm loler-1MOrelualiiceye(ele-M4 Oxe|-y-1(-1mie)me(-it-1] (om 


Stack Computer Services Limited, 290-298 Derby Road, Bootle, Merseyside. 051-933 5511. Telex: 627026. 





